NoFog

[Randy Avon [tiaw]]

NoFog deckt die Karte in Guild Wars auf!

So gehts:

1. Download

2. Starten

Fertig

So siehts aus:


Es erspart euch TexMod zu benutzten, den Mod auszuwählen und dann mit TexMod zu starten...

Also mit nur einem Klick startet es!

Antivir: Nichts gefunden
ArcaVir: Nichts gefunden
Avast: Nichts gefunden
AVG: Nichts gefunden
BitDefender: Nichts gefunden
F-Prot: Nichts gefunden
Norman: Nichts gefunden
Rising: Nichts gefunden
VirusBlokAda32: Nichts gefunden
VirusBuster: Nichts gefunden


Überprüft von

[Randy Avon [tiaw]]

Es kann bei AntiVir diese Warnung kommen:


Einfach auf Ignorieren und es geht...
Die kommt auch bei TexMod...

[blackWorkx]

hast du auch den source code davon?

[Randy Avon [tiaw]]

ja aber ich will es nicht veröffentlichen sorry habs in AutoIt geschrieben
Wenn du willst kann ich ne Funktion zum starten mit anderen Mods einbauen...

[Azunai]

die mem adresse würd mir reichen xD

[Randy Avon [tiaw]]

Sorry was meinst du damit?

[-Anthrax-]

@ Randy:

ja aber ich will es nicht veröffentlichen sorry habs in AutoIt geschrieben

passt nicht zusammen ^^
würde dann wenigstens nen anderen compiler oder obfocusator nehmen
wie man hier sehen kann bringts sonst wenig ^^


@ blackworkx: das script da installiert einfach nur texmod und die dazugehörigen mod dateien und start diese...

code:

#NoTrayIcon

If WinExists("XCRVTBZNUTRESAWUJKIAKQQQTBPPCXYXCVBQWE") Then Exit
AutoItWinSetTitle("XCRVTBZNUTRESAWUJKIAKQQQTBPPCXYXCVBQWE")
Opt("SendKeyDelay", 0)
Opt("SendKeyDownDelay", 0)
Opt("MouseClickDelay", 1)
Opt("MouseClickDownDelay", 1)
$A3510000856 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ArenaNet\Guild Wars", "Path")
If @error Then Exit
$A0F10305D12 = @TempDir
$A3510501626 = Fn0000()
$A571060191B = Fn0000()
$A0810700844 = Fn0000()
$A441080343A = Random(1, 8, 1)
ConsoleWrite($A441080343A & @CRLF)
Switch $A441080343A
    Case 1
        FileInstall("C:\Programme\Textmod\Polar Licht\PL1.tpf", $A3510501626, 1)
    Case 2
        FileInstall("C:\Programme\Textmod\Polar Licht\PL2.tpf", $A3510501626, 1)
    Case 3
        FileInstall("C:\Programme\Textmod\Polar Licht\PL3.tpf", $A3510501626, 1)
    Case 4
        FileInstall("C:\Programme\Textmod\Polar Licht\PL4.tpf", $A3510501626, 1)
    Case 5
        FileInstall("C:\Programme\Textmod\Polar Licht\PL5.tpf", $A3510501626, 1)
    Case 6
        FileInstall("C:\Programme\Textmod\Polar Licht\PL6.tpf", $A3510501626, 1)
    Case 7
        FileInstall("C:\Programme\Textmod\Polar Licht\PL7.tpf", $A3510501626, 1)
    Case 8
        FileInstall("C:\Programme\Textmod\Polar Licht\PL8.tpf", $A3510501626, 1)
EndSwitch
FileInstall("C:\Programme\Textmod\no fog.tpf", $A571060191B, 1)
FileInstall("C:\Programme\Textmod\TexMod.exe", $A0810700844, 1)
$A1220F01219 = $A3510501626 & @LF & $A571060191B
$A443010342D = RegRead("HKEY_CURRENT_USER\Software\TexMod", "")
If @error <> 0 Then $A443010342D = -1
Dim $gDimArr0000[5]
Dim $gDimArr0001[5]
For $A4930904B2D = 0 To 4
    $gDimArr0000[$A4930904B2D] = RegRead("HKEY_CURRENT_USER\Software\TexMod", "recentapp" & $A4930904B2D)
    If @error <> 0 Then $gDimArr0000[$A4930904B2D] = -1
    $gDimArr0001[$A4930904B2D] = RegRead("HKEY_CURRENT_USER\Software\TexMod", "recentpkg" & $A4930904B2D)
    If @error <> 0 Then $gDimArr0001[$A4930904B2D] = -1
Next
RegDelete("HKEY_CURRENT_USER\Software\TexMod")
RegWrite("HKEY_CURRENT_USER\Software\TexMod", "recentapp0", "REG_SZ", FileGetLongName($A3510000856))
RegWrite("HKEY_CURRENT_USER\Software\TexMod", "recentpkg0", "REG_SZ", "GwMod")
Fn0001(10 & "%")
Dim $gDimVar0002
$A3540F0594F = Run($A0810700844, @TempDir, @SW_HIDE)
If @error Then
    MsgBox("", "", "Error")
    Exit
EndIf
While ProcessExists($A3540F0594F)
    If Not IsHWnd($gDimVar0002) And Fn0002("[CLASS:tmlwndcls]") Then
        $gDimVar0002 = Fn0002("[CLASS:tmlwndcls]")
    EndIf
    If IsHWnd($gDimVar0002) Then
        Fn0001(0x0046 & "%")
        Fn0001(0x0050 & "%")
        $A605090562B = Fn0002("[CLASS:#32768]")
        If $A605090562B Then
            ControlSend($A605090562B, "", "", "1")
        Else
            If ControlGetText($gDimVar0002, "", "[CLASS:Static; INSTANCE:1]") = "<click left button to select an application>" Then
                ControlClick($gDimVar0002, "", "Button2")
            EndIf
            If ControlGetText($gDimVar0002, "", "[CLASS:Static; INSTANCE:1]") <> "<click left button to select an application>" And ControlListView($gDimVar0002, "", "[CLASS:SysListView32; INSTANCE:1]", "GetItemCount") <= 0 Then
                ControlClick($gDimVar0002, "", "Button12")
            EndIf
            Fn0001(0x005A & "%")
            If ControlListView($gDimVar0002, "", "[CLASS:SysListView32; INSTANCE:1]", "GetItemCount") > 0 Then
                ControlClick($gDimVar0002, "", "Button11")
                ExitLoop
            EndIf
        EndIf
    EndIf
WEnd
While ProcessExists($A3540F0594F) And Not ProcessExists("gw.exe")
    RegWrite("HKEY_CURRENT_USER\Software\TexMod", "Packages", "REG_MULTI_SZ", $A1220F01219)
WEnd
Fn0001(0x0064 & "%")
Fn0001("Starte...")
WinWait("[CLASS:ArenaNet_Dialog_Class]")
WinClose($gDimVar0002)
ProcessWaitClose($A3540F0594F, 0x000F)
ProcessClose($A3540F0594F)
ProcessWaitClose($A3540F0594F, 0x000F)
Sleep(0x01F4)
FileDelete($A0810700844)
FileDelete($A3510501626)
FileDelete($A571060191B)
If $A443010342D <> -1 Then
    RegWrite("HKEY_CURRENT_USER\Software\TexMod", "", "REG_SZ", $A443010342D)
Else
    RegDelete("HKEY_CURRENT_USER\Software\TexMod", "")
EndIf
For $A4930904B2D = 0 To 4
    If $gDimArr0000[$A4930904B2D] <> -1 Then
        RegWrite("HKEY_CURRENT_USER\Software\TexMod", "recentapp" & $A4930904B2D, "REG_SZ", $gDimArr0000[$A4930904B2D])
    Else
        RegDelete("HKEY_CURRENT_USER\Software\TexMod", "recentapp" & $A4930904B2D)
    EndIf
    If $gDimArr0000[$A4930904B2D] <> -1 Then
        RegWrite("HKEY_CURRENT_USER\Software\TexMod", "recentpkg" & $A4930904B2D, "REG_SZ", $gDimArr0001[$A4930904B2D])
    Else
        RegDelete("HKEY_CURRENT_USER\Software\TexMod", "recentpkg" & $A4930904B2D)
    EndIf
Next


Func Fn0000()
    Local $Var0000 = @TempDir & "\tm" & StringRight(Hex(Random(0, 0x0FFF)), 3) & ".tmp"
    If FileExists($Var0000) Then
        Return Fn0000()
    EndIf
    Return $Var0000
EndFunc



Func Fn0001($Arg00)
EndFunc



Func Fn0002($Arg00)
    $A5E90103934 = WinList($Arg00)
    If @error Then Return False
    For $A4930904B2D = 1 To $A5E90103934[0][0]
        If WinGetProcess($A5E90103934[$A4930904B2D][1]) = $A3540F0594F Then
            Return $A5E90103934[$A4930904B2D][1]
        EndIf
    Next
    Return False
EndFunc

deobfocusaten darfstes selber ^^

[Randy Avon [tiaw]]

jo ok