 |
AutoHotkey Community
Wir helfen uns gegenseitig aus der Patsche
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Double777
Anmeldedatum: 05.05.2008
Beiträge: 3
|
 Verfasst am: Mo Mai 05, 2008 3:45 pm Titel: Kleines ICQ "Tool" |
 |
|
Liebe Community,
habe erst gestern angefangen. Hab mir mal einen ICQ automatisch Antworter gemacht. Wollte mal wissen, ob ihr irgendwelche Verbesserung habt ?
| Code: | Loop 10
{
;WinWait,ahk_class TMsgForm
WinWait,ahk_class #32770
MouseClick,left,1188,940
WinMaximize,ahk_class #32770
ControlSend, , {Enter}Ich bin nicht da{Enter},ahk_class #32770
WinClose,ahk_class #32770
}
|
Also er funzt, aber ich denke es geht sicher besser^^.
Edith :
Jetzt mit Personen Zuordnen :
| Code: | Loop 10
{
WinWait,ahk_class #32770
MouseClick,left,1188,940
WinMaximize,ahk_class #32770
IfWinActive,Pers1 - Nachrichtensitzung
{
ControlSend, , {Enter}Hallo Pers1{Enter},Pers1 - Nachrichtensitzung
}
IfWinActive,Pers2 - Nachrichtensitzung
{
ControlSend, , {Enter}hallo Pers2 . {Enter},Pers2 - Nachrichtensitzung
}
IfWinActive,Pers3 - Nachrichtensitzung
{
ControlSend, , {Enter}hallo Pers3 . {Enter},Pers3- Nachrichtensitzung
}
WinClose,ahk_class #32770
}
|
|
|
| Nach oben |
|
 |
Obi-Wahn
Anmeldedatum: 19.04.2006
Beiträge: 538
Wohnort: Wien
|
| Verfasst am: Mo Mai 05, 2008 5:44 pm Titel: |
|
|
Korrigier mich, aber gibts sowas nicht schon von haus aus?!?! Bei Miranda zumindest schon.
_________________
Garten ist eine Kunstnatur
Das Leben ist nicht fair. Es ist nur fairer als der Tod, das ist alles.
Obi-Wahns Codeschnipsel @ securityvision.ch |
|
| Nach oben |
|
|
Double777
Anmeldedatum: 05.05.2008
Beiträge: 3
|
| Verfasst am: Mo Mai 05, 2008 6:12 pm Titel: |
|
|
| Ja, ist aber selbst gemacht und viele nützen ICQ, könnte hier jemand dazu eine (einfache) graphische Oberfläche machen. |
|
| Nach oben |
|
|
Dbof
Anmeldedatum: 10.01.2008
Beiträge: 241
|
| Verfasst am: Mo Mai 05, 2008 7:21 pm Titel: |
|
|
Also, als ICQ Nutzer möchte ich einige Worte dazusagen:
ahk_class #32770 ist die Standard-Klasse der Windows Fenster, Kannst es überprüfen, starte dein Script und öffne die Eigenschaften einer Datei...
Loops sind gaaaaanz schlecht, um auf Fenster zu warten, benutze einen Timer...
Werde dein Script jetzt mal Testen, war nur mein erster Blick auf das Script...
Und funktionieren tut's auch nicht(ICQLite)...
_________________
ich steige auf Delphi um...naja, werde trotzdem noch dabeisein und Hilfe leisten... |
|
| Nach oben |
|
|
Double777
Anmeldedatum: 05.05.2008
Beiträge: 3
|
| Verfasst am: Mo Mai 05, 2008 7:25 pm Titel: |
|
|
Bin ja auch ein Anfänger, deswegen Frage ich ja hier. Könnteste mal eine verbesserte Version bringen^^.
Wie kann ich es dynamischer machen ?
Das der Script die Position von "ahk_class #32770" erkennt und dann dort einen Linksklick ausführt? |
|
| Nach oben |
|
|
Skyde28
Gast
|
| Verfasst am: Do Jul 03, 2008 1:17 am Titel: |
|
|
Ich hab da ein Script das funktioniert...
War ursprünglich ein BF2 Text Spammer, hab ihn umgeschrieben und jetzt kann er eure Texte wiedergeben:
Bei
Numpad1: hey
Numpad2: wie gehts?
Numpad3: gut und selbst?
Numpad4: gut
Numpad5: lol
Numpad6: =)
Numpad7: xD
Numpad8: ja
Numpad9: nein
Ist ganz praktisch wenn man die Sätze/Wörter/Satzzeichen die man öfters benutzt einfach aufn Numpad hat xD...
Vlt. ist es ja das was du suchst.
 |
|
| Nach oben |
|
|
Skyde28
Gast
|
| Verfasst am: Do Jul 03, 2008 1:20 am Titel: |
|
|
Oops...sorry is schon spät...
Hab das Script vergessen xD
| Code: | SayToAll(a_szMessage)
{
SetKeyDelay, 2,2
Send, { Down}
Sleep 50
Send, { Up}
Send, %a_szMessage%{Enter}
SetKeyDelay, 0
}
SayToSquad(a_szMessage)
{
SetKeyDelay, 30,30
Send, {l Down}
Sleep 100
Send, {l Up}
Send, %a_szMessage%{Enter}
SetKeyDelay, 0
}
SayToTeam(a_szMessage)
{
SetKeyDelay, 30,30
Send, {k Down}
Sleep 100
Send, {k Up}
Send, %a_szMessage%{Enter}
SetKeyDelay, 0
}
$Numpad1::
$NumpadEnd::
SayToAll("hey")
return
$Numpad2::
$NumpadDown::
SayToAll("wie gehts?")
return
$Numpad3::
$NumpadPgDn::
SayToAll("gut und selbst?")
return
$Numpad4::
$NumpadLeft::
SayToAll("gut")
return
$Numpad5::
$NumpadClear::
SayToAll("lol")
return
$Numpad6::
$NumpadRight::
SayToAll("=)")
return
$Numpad7::
$NumpadHome::
SayToAll("xD")
return
$Numpad8::
$NumpadUp::
SayToAll("ja")
return
$Numpad9::
$Numpadpgup::
SayToAll("nein")
return |
Moderator AGermanUser: Code Tags ergänzt. Bitte nächstes Mal daran denken. |
|
| Nach oben |
|
|
|
|
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
|
Powered by phpBB © 2001, 2005 phpBB Group
Deutsche Übersetzung von phpBB.de |
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
