[SAMMELTHREAD] Nützliche AHK-Codeschnipsel

Abbas · 12. September 2018

Hallo,
dieses Thema ist dafür da, damit ihr eure eigenen AHK- Codeschnipsel vorstellt.
Damit andere Leute daraus lernen können oder es auch erweitern können.

Ich fang mal einfach mit einigen an:

kleines Passwort System

Code: kleines Passwort System

//oben im Script einfügen: password = breadfish123


InputBox,pass,Login, Bitte gebe den Passwort ein
If( pass <> password ) {
MsgBox Passwort falsch - Zugriff verweigert!
ExitApp
}
MsgBox Passwort korrekt - Zugriff erfolgreich!

Taschenrechner System (zusammen Arbeit mit einem Freund) (Benötigt wird eine API)

Code: Taschenrechner System (zusammen Arbeit mit einem Freund)

:?:/rechnen::
Suspend Permit
{
Zahl1 := PlayerInput("Zahl 1: ")
Aktion := PlayerInput("Aktion: ")
Zahl2 := PlayerInput("Zahl 2: ")
if (Aktion = "+")
{
StringSplit, calc, Aktion, +
calcresult := Round(Zahl1 + Zahl2, 3)
}
if (Aktion = "-")
{
StringSplit, calc, Aktion, -
calcresult := Round(Zahl1 - Zahl2, 3)
}
if (Aktion = "*")
{
StringSplit, calc, Aktion, *
calcresult := Round(Zahl1 * Zahl2, 3)
}
if (Aktion = "/")
{
StringSplit, calc, Aktion, /
calcresult := Round(Zahl1 / Zahl2, 3)
}
addChatMessage("{0078ff}[Keybinder]{CCCCCC}Das Ergebnis lautet: {01DF01}" . calcresult . "")
}
return

Alles anzeigen

Maho · 12. September 2018

Hier eine Whitelist.

Erklärt sich eig selbst.

einfach auf der Webspace in die .txt Dateien alle namen reinschreiben untereinander ist besser.

Code

Whitelist:


if (WinExist("GTA:SA:MP") && WinActive("GTA:SA:MP"))


{
	uName =: getUsername()
    CheckWhitelist := DownloadToString("http://Meine-Seite.de/keybinder/whitelist.txt")   
    IfNotInString, CheckWhitelist, %uName%
    {
        AddChatMessage("{4221D6}|| Keybinder ||{818181} Login Prozess{4221D6} fehlgeschlagen,")
        AddChatMessage("{4221D6}|| Keybinder ||{818181} Du stehst {4221D6}NICHT{818181} auf der Whitelist.")
		AddChatMessage("{4221D6}|| Keybinder ||{818181} Du kannst dich im Forum im dazugehörigen Thread eintragen lassen.")
        ExitApp
    }
}
return

Alles anzeigen

Hier noch ein Find BOT von mir war für LÜD

C

if not A_IsAdmin
{
Run *RunAs "%A_ScriptFullPath%"
ExitApp
}
#Warn
#UseHook
#NoEnv
#SingleInstance force
#include %A_ScriptDir%\SAMP.ahk // Das ist die API die ich nutzt weis gerade net welche das es wenn es bei euch net geht musst ihr die sachen ersetzen:D


Hotkey, Enter, Off
Hotkey, Escape, Off
return


+T::
~t::
Suspend On
Hotkey, Enter, On
Hotkey, Escape, On
Hotkey, t, Off
return


~NumpadEnter::
~Enter::
Suspend Permit
Suspend Off
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return


~Escape::
Suspend Permit
Suspend Off
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return




;#########################################################################################################


:?:/af::
Suspend Permit
KundeID := -1
KundeName := "ERROR"
Kunde := Playerinput("Gib die ID ein: ")
if Kunde is Integer
{
getPlayerNameById(Kunde)
KundeID := Kunde
}
if Kunde is not Integer
{
KundeID := GetPlayerIdByName(Kunde)
KundeName := Kunde
}
if( KundeID < 0 || KundeID > 250 || Kunde == -1 ){
return
}
afind := true
SetTimer, Find, 4000 //4000 MS = 4 SEK
AddChatMessage("{0088cc}[Find - BOT]{FFFFFF} Automatisches finden gestartet. Zum beenden{2090B3} < {FFFFFF} drücken.")
Find:
SendChat("/Befehl zum Finden " KundeID "")
CZP := getPlayerZone()
CCP := getPlayerCity()
AddChatMessage("{0088cc}[Find - BOT]{FFFFFF} User: " Kunde " wurde geortet")
Sleep 100
Suspend Off
return
~<::
if(isInChat() || (A_IsSuspended))
return
SetTimer, Find, Off
afind := false
AddChatMessage("{0088cc}[Find - BOT]{FFFFFF} Automatisches finden beendet.")
return


PlayerInput(text){
s := A_IsSuspended
Suspend On
KeyWait Enter
SendInput t^a{backspace}%text%
Input, var, v, {enter}
SendInput ^a{backspace 100}{enter}
Sleep, 20
if(!s)
Suspend Off
return var
}

Alles anzeigen

Abbas · 16. September 2018

Beachten solltet ihr hier bei das eine Webspace benötigt wird, um mit FileZilla halt die Exe und die TXD Datei hochzuladen und die HTTP Links in den Script einzufügen.
Damit der Keybinder dann von der Webspace aus die neue Exe Version downloaden kann.

INFO: Nach jeden neuem Update, AHK Code Compilen mit FileZilla in die Wepspace wo die TXD und die veraltete Exe ist rein gehen.
Und die alte Exe löschen und mit der neuen ersetzten. Und wichtig ist pro neuen Update bei der TXD Datei von 0 auf 1 zusetzten und auch im Script wo " Version = 0 " steht eine 1 aus der 0 zu machen. Und immer weiter und weiter mit den zahlen wenn ihr immer Updates raus bringt.

Code

Version = 0
IfExist update.batx
{
	FileDelete update.bat
}
IfExist Keybat1.bat
{
	FileDelete Keybat1.bat
}


UrlDownloadToFile HTTP DER VERSION.TXT, version.txt
FileRead, NewestVersion, version.txt
FileDelete version.txt
if(NewestVersion > Version)
{
	MsgBox, 4,, Die neue Version %NewestVersion% ist verfügbar.`nMöchtest du den Keybinder aktualisieren?
	IfMsgBox, YES
	{
            UrlDownloadToFile HTTP DER Update EXE. Datei vom Keybinder, %A_ScriptName%.new


            UpdateBat=
	    (
  	         Del "%A_ScriptName%"
                              Rename "%A_ScriptName%.new" "%A_ScriptName%"
	         "%A_ScriptName%"
	     )
	     FileAppend, %UpdateBat%, update.bat
	     Run, update.bat,,hide
	     ExitApp
        }
}

Alles anzeigen

Reuka · 16. September 2018

Hau mal bitte einen decompiler Schutz für die 0815 decompiler raus

Abbas · 16. September 2018

Zitat von YaReZ

Hau mal bitte einen decompiler Schutz für die 0815 decompiler raus

Da dir ein Decompiler Schutz nicht viel bringen wird würde ich dir empfehlen deinen Script zu obfuscieren also es so schreiben, dass es sehr schwierig zu verstehen ist.
Es gibt ein Programm dafür was das automatisch für dich macht.
https://github.com/davidmalia/autohotkey-obfuscator

Aber wenn du wirklich einen Anti Decompiler haben willst was 0815 Decompiler fernhält würde ich dir die UPX / MPress Gui empfehlen .
https://www.autoitscript.com/f…ic/138385-upx-mpress-gui/

mfg

lyax. · 23. April 2019

Zitat von iTsRooT

Hier eine Whitelist.

Erklärt sich eig selbst.

einfach auf der Webspace in die .txt Dateien alle namen reinschreiben untereinander ist besser.

Code

Whitelist:


if (WinExist("GTA:SA:MP") && WinActive("GTA:SA:MP"))


{
	uName =: getUsername()
    CheckWhitelist := DownloadToString("http://Meine-Seite.de/keybinder/whitelist.txt")   
    IfNotInString, CheckWhitelist, %uName%
    {
        AddChatMessage("{4221D6}|| Keybinder ||{818181} Login Prozess{4221D6} fehlgeschlagen,")
        AddChatMessage("{4221D6}|| Keybinder ||{818181} Du stehst {4221D6}NICHT{818181} auf der Whitelist.")
		AddChatMessage("{4221D6}|| Keybinder ||{818181} Du kannst dich im Forum im dazugehörigen Thread eintragen lassen.")
        ExitApp
    }
}
return

Alles anzeigen

Bei mir kommt immer der Fehler: ==> Call to nonexistent function.
Vielleicht kann mir jemand helfen

Alles anzeigen

[SAMMELTHREAD] Nützliche AHK-Codeschnipsel

Beitrag von Maho (2. November 2018)

breadfish.de 12. März 2022