![[GUICtrlCreatePic] keine Ausgabe.](https://www.elitepvpers.com/forum/iconimages/autoit/guictrlcreatepic-keine-ausgabe_ltr.gif){kind=small}
~Close
Erledigt
Hallo Community,
Mein Problem ist das bei :
keine Verknüpfung erstellt. Wie kann ich das beheben ?
Vielen dank im vorraus
Freundliche Grüße
md88
Mein Problem ist das bei :
FileCreateShortcut("C:\RootWay\te2t-Sicherheitskopie.exe", @DesktopDir & "test.lnk",)
Vielen dank im vorraus
Freundliche Grüße
md88
alter Thread:
Hallo Community,
Mein Problem ist das bei :
GUICtrlCreatePic("C:\Rootway\Pictures\gildenpapalo go.jpg", 0, 0, @DesktopWidth, @DesktopHeight)
Hier einmal der komplette Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
#include <StaticConstants.au3>
#include <Sound.au3>
#include <NomadMemory.au3>
#include <EPVP_HWID.au3>
MsgBox(48,"Please wait!", "I will check that you give an thanks me.")
$szxURL = 'http://www.elitepvpers.com/forum/s4-league-hacks-bots-cheats-exploits/3087795-release-s4l-mini-ingame.html' ;Test URL
Dim $a_szIgnoredIds[1] = ['x'] ;eigene UserID, Ausnahmen, etc.
_CheckThanks('', $szxURL, $a_szIgnoredIds)
Switch @error
Case 7
If MsgBox(52, 'Error ',' A Thanks would be desirable! open thread?') == 6 Then ShellExecute($szxURL)
Exit
Case Else
MsgBox(48, 'Danke', 'Thanks Have Fun!')
$handle = _SoundOpen(@ScriptDir & "\Dreaming.mp3")
_SoundPlay($handle)
SoundSetWaveVolume(40)
$F = GUICreate('MyGUI', @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_POPUP, $WS_EX_TOPMOST))
GUICtrlCreatePic("C:\Rootway\Picturesgildenpapalog o.jpg", 0, 0, @DesktopWidth, @DesktopHeight)
_WinFade_BK($F, "In")
Sleep(3000)
_WinFade_BK($F, "out")
EndSwitch
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("[Team FTW] Have Fun Hack", 660, 452, @DesktopWidth / 2 - 330, @DesktopHeight / 2 - 226)
GUISetCursor (3)
$Label1 = GUICtrlCreateLabel("By Official Di!mar ", 560, 432, 87, 17)
GUICtrlSetColor(-1, 0x008080)
GUICtrlSetBkColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Start", 326, 367,100, 50)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Exit", 226, 367, 100, 50)
GUICtrlSetCursor (-1, 0)
$Checkbox9 = GUICtrlCreateCheckbox("God Mode", 40, 120, 97, 17)
$Checkbox14 = GUICtrlCreateCheckbox("1 hit kill", 40, 168, 97, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Channel no lvl", 466, 144, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("****", 160, 120, 97, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Block HP", 160, 168, 97, 17)
$Checkbox1 = GUICtrlCreateCheckbox("200HP", 106, 144, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Inf sp", 280, 120, 97, 17)
$Checkbox11 = GUICtrlCreateCheckbox("Bind Range", 280, 168, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Damage x2", 226, 144, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("H.Riffle no fail", 400, 120, 97, 17)
$Checkbox10 = GUICtrlCreateCheckbox("Inf Amo", 400, 168, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("No laser", 346, 144, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("WallJump teleport", 520, 120, 99, 17)
$Checkbox12 = GUICtrlCreateCheckbox("Instant Respawn", 520, 168, 99, 17)
$Slider1 = GUICtrlCreateSlider(32, 345, 99, 25)
$Button3 = GUICtrlCreateButton("Set Volume", 32, 367, 99, 15, 0)
GUICheckBoxSetColor($Checkbox1,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox2,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox3,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox4,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox5,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox6,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox7,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox8,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox9,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox10,0x000000,$GUI_BKCO LOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox11,0x000000,$GUI_BKCO LOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox12,0x000000,$GUI_BKCO LOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox13,0x000000,$GUI_BKCO LOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox14,0x000000,$GUI_BKCO LOR_TRANSPARENT )
_WinFade_B($Form1, "in")
$Pic1 = GUICtrlCreatePic("main\ftw11.jpg", 0, -8, 660, 113)
$Pic2 = GUICtrlCreatePic("main\Addictive-Computer-Have-fun_www.FullHDWpp.com_.jpg", 0, 104, 660, 348)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
MsgBox(4096, "03.03.2014", "Script By : D!eMar//xLoader", 0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $button2
Exit
Case $GUI_EVENT_CLOSE
Exit
Case $button1
_something()
Case $Button3
$Read=GUICtrlRead($Slider1)
ToolTip($Read)
SoundSetWaveVolume($Read)
EndSwitch
WEnd
Func GUICheckBoxSetColor(ByRef $CtrlID,$iColor,$iBkColor=0xF1EDED)
$CtrlHWnd = $CtrlID
If Not IsHWnd($CtrlHWnd) Then $CtrlHWnd = GUICtrlGetHandle($CtrlID)
$aParent = DllCall("user32.dll", "hwnd", "GetParent", "hwnd", $CtrlHWnd)
$aCPos = ControlGetPos($aParent[0],"",$CtrlID)
$sOldT = GUICtrlRead($CtrlID,1)
GUICtrlDelete($CtrlID)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0)
$CtrlID = GUICtrlCreateCheckbox($sOldT,$aCPos[0],$aCPos[1],$aCPos[2],$aCPos[3])
GUICtrlSetColor(-1,$iColor)
GUICtrlSetBkColor(-1,$iBkColor)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7)
EndFunc
Func _WinFade_BK($WinTitle, $Fade = "out", $BkColor = "", $iTime = 250, $Exit = True)
If $Fade = "in" Then
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinTitle, "int", 2600, "long", 0x00080000)
ElseIf $Fade = "out" or $Fade = "" Then
If Not $BkColor = "" Then
GUISetBkColor($BkColor)
EndIf
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinTitle, "int", $iTime, "long", 0x00090000)
EndIf
EndFunc
Func _WinFade_B($WinTitle, $Fade = "out", $BkColor = "", $iTime = 250, $Exit = True)
If $Fade = "in" Then
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinTitle, "int", 1000, "long", 0x00080000)
ElseIf $Fade = "out" or $Fade = "" Then
If Not $BkColor = "" Then
GUISetBkColor($BkColor)
EndIf
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinTitle, "int", $iTime, "long", 0x00090000)
EndIf
EndFunc
Func _something()
ToolTip("Waiting for S4Client...", 0, 0)
$wait = ProcessWait("S4Client.exe")
$pid = ProcessExists("S4Client.exe")
Sleep(1000)
$open = _memoryopen($pid)
If GUICtrlRead($Checkbox1) = 1 Then
_memorywrite(5414004, $open,"1166868842", "long")
EndIf
If GUICtrlRead($checkbox2) = 1 Then
_memorywrite(7945525, $open, 2374697578, "long")
EndIf
If GUICtrlRead($checkbox3) = 1 Then
_memorywrite("0x0048D1E2", $open,"2348565979", "long")
EndIf
If GUICtrlRead($checkbox4) = 1 Then
_memorywrite(4919227, $open, 1300955754, "long")
EndIf
If GUICtrlRead($checkbox5) = 1 Then
_memorywrite(15179559, $open, 2348565979, "long")
EndIf
If GUICtrlRead($checkbox6) = 1 Then
_memorywrite(5421333, $open, 1301115242, "long")
EndIf
If GUICtrlRead($checkbox7) = 1 Then
_memorywrite("0x0048D6E9", $open, "3641722331", "long")
EndIf
If GUICtrlRead($checkbox8) = 1 Then
_memorywrite(10549654, $open, 837533829, "long")
EndIf
If GUICtrlRead($Checkbox9) = 1 Then
_memorywrite(0x0052C2A5, $open,"3135869072", "long")
EndIf
If GUICtrlRead($checkbox10) = 1 Then
_memorywrite(7882049, $open, 3555299472, "long")
EndIf
If GUICtrlRead($checkbox11) = 1 Then
_memorywrite(4896399, $open, 2047263990, "long")
EndIf
If GUICtrlRead($checkbox12) = 1 Then
_memorywrite(6270386, $open, 989874827, "long")
EndIf
If GUICtrlRead($checkbox13) = 1 Then
_memorywrite(7945565, $open, 2374697834, "long")
EndIf
If GUICtrlRead($checkbox14) = 1 Then
_memorywrite(5417417, $open, 1593591259, "long")
EndIf
Exit
EndFunc
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
#include <StaticConstants.au3>
#include <Sound.au3>
#include <NomadMemory.au3>
#include <EPVP_HWID.au3>
MsgBox(48,"Please wait!", "I will check that you give an thanks me.")
$szxURL = 'http://www.elitepvpers.com/forum/s4-league-hacks-bots-cheats-exploits/3087795-release-s4l-mini-ingame.html' ;Test URL
Dim $a_szIgnoredIds[1] = ['x'] ;eigene UserID, Ausnahmen, etc.
_CheckThanks('', $szxURL, $a_szIgnoredIds)
Switch @error
Case 7
If MsgBox(52, 'Error ',' A Thanks would be desirable! open thread?') == 6 Then ShellExecute($szxURL)
Exit
Case Else
MsgBox(48, 'Danke', 'Thanks Have Fun!')
$handle = _SoundOpen(@ScriptDir & "\Dreaming.mp3")
_SoundPlay($handle)
SoundSetWaveVolume(40)
$F = GUICreate('MyGUI', @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_POPUP, $WS_EX_TOPMOST))
GUICtrlCreatePic("C:\Rootway\Picturesgildenpapalog o.jpg", 0, 0, @DesktopWidth, @DesktopHeight)
_WinFade_BK($F, "In")
Sleep(3000)
_WinFade_BK($F, "out")
EndSwitch
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("[Team FTW] Have Fun Hack", 660, 452, @DesktopWidth / 2 - 330, @DesktopHeight / 2 - 226)
GUISetCursor (3)
$Label1 = GUICtrlCreateLabel("By Official Di!mar ", 560, 432, 87, 17)
GUICtrlSetColor(-1, 0x008080)
GUICtrlSetBkColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Start", 326, 367,100, 50)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Exit", 226, 367, 100, 50)
GUICtrlSetCursor (-1, 0)
$Checkbox9 = GUICtrlCreateCheckbox("God Mode", 40, 120, 97, 17)
$Checkbox14 = GUICtrlCreateCheckbox("1 hit kill", 40, 168, 97, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Channel no lvl", 466, 144, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("****", 160, 120, 97, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Block HP", 160, 168, 97, 17)
$Checkbox1 = GUICtrlCreateCheckbox("200HP", 106, 144, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Inf sp", 280, 120, 97, 17)
$Checkbox11 = GUICtrlCreateCheckbox("Bind Range", 280, 168, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Damage x2", 226, 144, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("H.Riffle no fail", 400, 120, 97, 17)
$Checkbox10 = GUICtrlCreateCheckbox("Inf Amo", 400, 168, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("No laser", 346, 144, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("WallJump teleport", 520, 120, 99, 17)
$Checkbox12 = GUICtrlCreateCheckbox("Instant Respawn", 520, 168, 99, 17)
$Slider1 = GUICtrlCreateSlider(32, 345, 99, 25)
$Button3 = GUICtrlCreateButton("Set Volume", 32, 367, 99, 15, 0)
GUICheckBoxSetColor($Checkbox1,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox2,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox3,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox4,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox5,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox6,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox7,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox8,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox9,0x000000,$GUI_BKCOL OR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox10,0x000000,$GUI_BKCO LOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox11,0x000000,$GUI_BKCO LOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox12,0x000000,$GUI_BKCO LOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox13,0x000000,$GUI_BKCO LOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox14,0x000000,$GUI_BKCO LOR_TRANSPARENT )
_WinFade_B($Form1, "in")
$Pic1 = GUICtrlCreatePic("main\ftw11.jpg", 0, -8, 660, 113)
$Pic2 = GUICtrlCreatePic("main\Addictive-Computer-Have-fun_www.FullHDWpp.com_.jpg", 0, 104, 660, 348)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
MsgBox(4096, "03.03.2014", "Script By : D!eMar//xLoader", 0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $button2
Exit
Case $GUI_EVENT_CLOSE
Exit
Case $button1
_something()
Case $Button3
$Read=GUICtrlRead($Slider1)
ToolTip($Read)
SoundSetWaveVolume($Read)
EndSwitch
WEnd
Func GUICheckBoxSetColor(ByRef $CtrlID,$iColor,$iBkColor=0xF1EDED)
$CtrlHWnd = $CtrlID
If Not IsHWnd($CtrlHWnd) Then $CtrlHWnd = GUICtrlGetHandle($CtrlID)
$aParent = DllCall("user32.dll", "hwnd", "GetParent", "hwnd", $CtrlHWnd)
$aCPos = ControlGetPos($aParent[0],"",$CtrlID)
$sOldT = GUICtrlRead($CtrlID,1)
GUICtrlDelete($CtrlID)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0)
$CtrlID = GUICtrlCreateCheckbox($sOldT,$aCPos[0],$aCPos[1],$aCPos[2],$aCPos[3])
GUICtrlSetColor(-1,$iColor)
GUICtrlSetBkColor(-1,$iBkColor)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7)
EndFunc
Func _WinFade_BK($WinTitle, $Fade = "out", $BkColor = "", $iTime = 250, $Exit = True)
If $Fade = "in" Then
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinTitle, "int", 2600, "long", 0x00080000)
ElseIf $Fade = "out" or $Fade = "" Then
If Not $BkColor = "" Then
GUISetBkColor($BkColor)
EndIf
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinTitle, "int", $iTime, "long", 0x00090000)
EndIf
EndFunc
Func _WinFade_B($WinTitle, $Fade = "out", $BkColor = "", $iTime = 250, $Exit = True)
If $Fade = "in" Then
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinTitle, "int", 1000, "long", 0x00080000)
ElseIf $Fade = "out" or $Fade = "" Then
If Not $BkColor = "" Then
GUISetBkColor($BkColor)
EndIf
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinTitle, "int", $iTime, "long", 0x00090000)
EndIf
EndFunc
Func _something()
ToolTip("Waiting for S4Client...", 0, 0)
$wait = ProcessWait("S4Client.exe")
$pid = ProcessExists("S4Client.exe")
Sleep(1000)
$open = _memoryopen($pid)
If GUICtrlRead($Checkbox1) = 1 Then
_memorywrite(5414004, $open,"1166868842", "long")
EndIf
If GUICtrlRead($checkbox2) = 1 Then
_memorywrite(7945525, $open, 2374697578, "long")
EndIf
If GUICtrlRead($checkbox3) = 1 Then
_memorywrite("0x0048D1E2", $open,"2348565979", "long")
EndIf
If GUICtrlRead($checkbox4) = 1 Then
_memorywrite(4919227, $open, 1300955754, "long")
EndIf
If GUICtrlRead($checkbox5) = 1 Then
_memorywrite(15179559, $open, 2348565979, "long")
EndIf
If GUICtrlRead($checkbox6) = 1 Then
_memorywrite(5421333, $open, 1301115242, "long")
EndIf
If GUICtrlRead($checkbox7) = 1 Then
_memorywrite("0x0048D6E9", $open, "3641722331", "long")
EndIf
If GUICtrlRead($checkbox8) = 1 Then
_memorywrite(10549654, $open, 837533829, "long")
EndIf
If GUICtrlRead($Checkbox9) = 1 Then
_memorywrite(0x0052C2A5, $open,"3135869072", "long")
EndIf
If GUICtrlRead($checkbox10) = 1 Then
_memorywrite(7882049, $open, 3555299472, "long")
EndIf
If GUICtrlRead($checkbox11) = 1 Then
_memorywrite(4896399, $open, 2047263990, "long")
EndIf
If GUICtrlRead($checkbox12) = 1 Then
_memorywrite(6270386, $open, 989874827, "long")
EndIf
If GUICtrlRead($checkbox13) = 1 Then
_memorywrite(7945565, $open, 2374697834, "long")
EndIf
If GUICtrlRead($checkbox14) = 1 Then
_memorywrite(5417417, $open, 1593591259, "long")
EndIf
Exit
EndFunc
das Bild ist auch im richtigen Pfad :
Vielen dank im vorraus
Freundliche Grüße
md88
p.s. bitte beachtet die MemoryWrite Funktion nicht da ich davon keine Ahnung habe. Falls sich allerdings jemand kurz die Zeit nähmen, könnte, um es mir zu erklären, würde ich mich freuen.
