ich habe eine OpenOffice-Calc-Tabelle mit Usernamen.
Ich markiere einen der User und starte folgendes Script:
Code: Select all
!q:: ; Eine Zelle in der Spalte User auswählen
SetKeyDelay, 110 ; Standard-Verzögerung
send ^c ; STRG+C drücken
user:=clipboard ; User als Variable user speichern
Send {Right 1} ; In der Tabelle ein Feld nach rechts
send ^c ; STRG+C drücken
messageurl:=clipboard ; Chat-URL als Variable messageurl speichern
send {Left 2} ; 2 nach links auf Notizfeld
File = C:\Users\christian\Desktop\ahktest\mdhtext\mdhtext1.txt ; Anrede speichern
FileRead,FileContents,%File% ; als Variable text1
Sort,FileContents,Random ; "
text1 := SubStr(FileContents,1,InStr(FileContents,"`r")-1) ; "
File = C:\Users\christian\Desktop\ahktest\mdhtext\mdhtext2.txt ; Satz speichern
FileRead,FileContents,%File% ; als Variable text2
Sort,FileContents,Random ; "
text2 := SubStr(FileContents,1,InStr(FileContents,"`r")-1) ; "
File = C:\Users\christian\Desktop\ahktest\mdhtext\mdhtext3.txt ; Gruß speichern
FileRead,FileContents,%File% ; als Variable text3
Sort,FileContents,Random ; "
text3 := SubStr(FileContents,1,InStr(FileContents,"`r")-1) ; "
Run %messageurl% ; Chat-Seite für den User öffnen
Return
Code: Select all
!w::
Send %text1% %user%%text2% %text3%
Return
Das Ergebnis von Alt w sieht dann jedes mal etwa so aus:
text1 user
text2 text3
Ich habe schon eine Zeit lang mit Replace rum probiert, aber erfolglos.
In dem Nachrichten-Formular kann man entweder mit Enter abschicken (Wäre prima zu automatisieren mit nem Enter am Ende)... oder per Klick auf nen Button, an denn ich mit Tab nicht ran komme und wie ich das HTML-Element (<i class="fa fa-send"></i>) klicken kann, hab ich leider noch nicht heraus gefunden.
Wegen den Zeilenumbrüchen in der Variable user, müsste man jedes mal von Hand den Absenden-Button klicken.
Also entweder krieg ich irgendwie diese Zeilenumbrüche weg... oder ich schaff's mal irgendwie diesen Button da per ahk zu klicken.
Hoffentlich kann mir jemand etwas weiter helfen, Danke!!!