Beiträge von Eistee

Eistee

@Crazy-A
ähm mal ne frage was nutzt eine leere gui ?

Habe die func etwas verändert

Spoiler anzeigen

[autoit]

Func _AnimButton($IDgui, $IDbtn, $delay=150)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
Local $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0]+$pos[0], $pWin[1]+$pos[1]+200, $WS_POPUP);die +20 durch +200 dadurch ist der komische weise effekt nichtmehr da dann isses perfekt
WinSetTrans($tmpGui, '', 120)
GUISetState(@SW_SHOW, $tmpGui)
Sleep($delay)
GUIDelete($tmpGui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc ;==> _AnimButton

[/autoit]

So ist es perfekt danke nochmal und sry für vorhin ne

Mfg LogiVidia

Edit: mist mir fällt grade auf das das doch noch kommt nur weiter unten...

Ok habe diesen teil einfach herausgelöscht

Spoiler anzeigen

[autoit]

Func _AnimButton($IDgui, $IDbtn, $delay=150)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
Local $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0]+$pos[0], $WS_POPUP)
WinSetTrans($tmpGui, '', 120)
GUISetState(@SW_SHOW, $tmpGui)
Sleep($delay)
GUIDelete($tmpGui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc ;==> _AnimButton

[/autoit]

Eistee

so funktioniert es perfekt aber eine klitzekleine frage noch
kann man den effekt den du benutzt hast auch so ändern das der button kurz schwarz umrandet wird ?

P.S. @Crazy-A dein zip archiv ist beschädigt ich kann es nicht öffnen

Eistee

das frage ich mich auch schon lange

Eistee

so habe es jetzt lange probiert bin jetzt schon mal soweit das er das erste bild verschwinden lässt...
kann mir bitte jemand einen Tipp geben wo der Fehler ist ?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <TabConstants.au3>
#include <EditConstants.au3>
#include <DateTimeConstants.au3>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <ProgressConstants.au3>
#include <AVIConstants.au3>
#include <UpDownConstants.au3>
#include<Array.au3>
#include<File.au3>
#include <WinAPI.au3>
#include-once
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

Global $picBasic = 'C:\Air\KalLauncher\'
Global $pic21 = 'startb.jpg' ; Bild f. nicht gedrückten Button
Global $pic22 = 'start2.jpg' ; Bild für gedrückten Button

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

DirCreate("C:\Air\KalLauncher")
FileInstall("rd.bmp","C:\Air\KalLauncher\rdacd.bmp")
FileInstall("Start.jpg","C:\Air\KalLauncher\Startb.jpg")
FileInstall("balk.jpg","C:\Air\KalLauncher\balk.jpg")
FileInstall("Options.jpg","C:\Air\KalLauncher\Optionsb.jpg")
FileInstall("Website.jpg","C:\Air\KalLauncher\Websiteb.jpg")
FileInstall("Close.jpg","C:\Air\KalLauncher\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
$Pic2 = GUICtrlCreatePic($picBasic & $pic21, 40, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("C:\Air\KalLauncher\Optionsb.jpg", 210, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("C:\Air\KalLauncher\Websiteb.jpg", 380, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("C:\Air\KalLauncher\Close.jpg", 517, 15, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic13 = GUICtrlCreatePic("C:\Air\KalLauncher\balk.jpg", 0, 269, 550, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Pic1 = GUICtrlCreatePic("C:\Air\KalLauncher\rdacd.bmp", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
GUICtrlCreateLabel("",15,15,520,155,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$Edit1 = GUICtrlCreateEdit("", 0, 168, 550, 99)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _1 ()
Do
$msg = GUIGetMsg()
$aCursorInfo = GUIGetCursorInfo()
Select
Case $aCursorInfo[2] = 1 And $aCursorInfo[4] = $Pic2 ; li. (primäre) Maustaste UND Button gedrückt
; AnimierFunc aufrufen (ID-GUI, ID-Btn, BildPfad-nicht-gedrückt, BildPfad-gedrückt [, optional Verzögrung])
_AnimButton($Form1, $Pic2, $picBasic & $pic21, $picBasic & $pic22)
; Code
Case Else
;;
EndSelect
Until $msg = $GUI_EVENT_CLOSE
ShellExecute("engine.exe","/load /config debug")
Exit
Endfunc
Func _3 ()
ShellExecute($HTT)
Sleep(200)
EndFunc
Func _2 ()
FileInstall("Reso.exe","Reso.exe")
MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
Sleep(500)
Run("Reso.exe")
Exit
EndFunc
Func _4 ()
Exit
Endfunc

[/autoit] [autoit][/autoit] [autoit]

Func _AnimButton($IDgui, ByRef $IDbtn, $picUP, $picDOWN, $delay=150)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
GUICtrlDelete($IDbtn)
Local $tmpBtn = GUICtrlCreatePic($picDOWN, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
Sleep($delay)
GUICtrlDelete($tmpBtn)
$IDbtn = GUICtrlCreatePic($picUP, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc

[/autoit]

Eistee

des problem ist ich kann ihm überhaupt nicht sagen das er was tun soll wenn das pw falsch ist leider da musst du warten bis die pros kommen

Eistee

ich habe es grade versucht aber wenn ich es über weitere else befehle lösen will kackt mir nur mein pc ab... muss dann die autoit3.exe beenden
sry

Eistee

da komm ich nicht mehr mit musste warten bis ein Pro kommt

Eistee

der grund ist doch egal

Eistee

mal so es kann sein das ich jetzt scheisse laber weil ich nie schleifen verwende wüsste nicht mal wie das geht, aber ja so in etwa stimmt das
du weist in der einen schleife eine funktion zu

willst die gleiche in der nächsten schleife wieder verwenden dann musste in der nächsten schleife die Variable nochmals deklarieren odereben du benutzt die sache mit dem Global dann reicht es sie einmal zuzuweisen

alles ok ?

P.S. bei deinem bild funktioniert es jetzt weil oben global ist

wenn du global wegnimmst hatt die variable in der unteren schleife nichts mehr zugewiesen

Eistee

weil du etwas weiter oben im script $ open eine funktion zuweist

weiter unten nimmste $open wieder her hast ihm aber nichts mehr zugewiesen wenn du jetzt ganz oben schreibt

Global $open dan ist es ausreichend es einmal zu deklarieren

Eistee

nice joke man
ja ich verwende vista danke

Edit: habe die zeile ausgetausch ebenfalss nur eine leere gui

habe jetzt einfach @scriptdir genommen und eigene bilder verwendet so geht es problemfrei
wäre echt cool aber ich verstehe immer noch nicht wie ich das in mein script einbauen könnte

Eistee

schreib halt oben drüber

Spoiler anzeigen

[autoit]

Global $open

[/autoit]

dann sollte das normale speichern auch gehen

weil ich erhalte in dem teilscript von dir dei fehlermeldung das diese variable nicht deklariert ist

Eistee

äh lol wieso persönlich angegriffen ? ich blicke da nicht durch bei so viel variablen und diesen dingern wo man global davor schreibt
für mich ist sowas sau unübersichtlich ich raffe da gar nichts das war nichts gegen dich bugfix ganz ehrlich

und einfach ist dein code nicht im geringsten da blickt doch keine sau durch
das ist nichts gegen dich aber so ein "krieg der Variablen" ist nichts für mich

nochdazu funktioniert dein script nichtmal
da kommt nur eine gui ohne inhalt ohne buttons ohne irgendwas

Eistee

es währe freundlich wenn du uns mal sagst welche fehlermeldung kommt

Eistee

also normalerweise fragste ihn was in etwa so

Spoiler anzeigen

[autoit]

If @error Then
$save = FileSaveDialog("Speichern unter...", @DesktopDir, "Textdokument (*.txt)|Alle Dateien (*.*)")
If $save Then $save &=".txt"
FileWrite($save, (GUICtrlRead($edit)))
else
$fileopen = FileOpen($open, 2)
FileWrite($fileopen, GUICtrlRead($edit))
FileClose($fileopen)

[/autoit]

allerdings nicht getestet

Eistee

ja ist es und vor allem sehr unübersichtlich des weiteren weis man nicht was man wie zuordnen muss was die egentliche funktion ist und wie ich das in meinem script unter kriege

Eistee

Ähm du bist erst 1 jahr dabei ?
Dann ziehe ich meinen Hut vor dir wie deine scripte schon funktionieren und was für klasse sachen du immer rausbringst(bin seit 2 jahren da und nix is ^^)

Mfg LogiVidia

Eistee

nw Bugfix ich wills mir nicht leicht machen ehrlich ich verstehe Deinen script auch mit diesen kommentaren nicht der liest sich schon sau kompliziert

Eistee

äh geht das evtl. auch mit etwas weniger code mit erklärung welche funktion was macht ?
des von fireflyer macht bei mir gar nichts
und die anderen raffe ich nicht

so gehts schonmal nicht

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <TabConstants.au3>
#include <EditConstants.au3>
#include <DateTimeConstants.au3>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <ProgressConstants.au3>
#include <AVIConstants.au3>
#include <UpDownConstants.au3>
#include<Array.au3>
#include<File.au3>
#include <WinAPI.au3>
#include-once
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

DirCreate("C:\Air\KalLauncher")
$IpRead123 = FileReadLine("Launcher.txt", 6)
$file = InetGetSize($IpRead123 & "/UpdateVersion.txt")
If @error Then
FileInstall("rd.bmp","C:\Air\KalLauncher\rdacd.bmp")
FileInstall("Start.jpg","C:\Air\KalLauncher\Startb.jpg")
FileInstall("balk.jpg","C:\Air\KalLauncher\balk.jpg")
FileInstall("Options.jpg","C:\Air\KalLauncher\Optionsb.jpg")
FileInstall("Website.jpg","C:\Air\KalLauncher\Websiteb.jpg")
FileInstall("Close.jpg","C:\Air\KalLauncher\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
_GuiRoundCorners($Form1, 0, 0, 10, 10)
$Pic2 = GUICtrlCreatePic("C:\Air\KalLauncher\Startb.jpg", 40, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetOnEvent($pic2, "_test")
$Pic3 = GUICtrlCreatePic("C:\Air\KalLauncher\Optionsb.jpg", 210, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("C:\Air\KalLauncher\Websiteb.jpg", 380, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("C:\Air\KalLauncher\Close.jpg", 517, 15, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic13 = GUICtrlCreatePic("C:\Air\KalLauncher\balk.jpg", 0, 269, 550, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Pic1 = GUICtrlCreatePic("C:\Air\KalLauncher\rdacd.bmp", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
GUICtrlSetOnEvent($pic2, "_test")
GUICtrlCreateLabel("",15,15,520,155,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$Edit1 = GUICtrlCreateEdit("", 0, 168, 550, 99)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
EndSwitch
WEnd
ElseIf $file > 0 Then
_u ()
EndIf
Func _u ()
$IpRead = FileReadLine("Launcher.txt", 6)
If FileExists("C:\UpdateVersion.txt") Then
_Funce ()
Else
FileWrite("C:\UpdateVersion.txt", "1234567gdertfderdvbhtt")
Sleep(1000)
_Funce ()
EndIf
EndFunc
Func _Funce ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip2 = ($IpRead)
$ver = FileRead("C:\UpdateVersion.txt")
InetGet($Ip2 &"/UpdateVersion.txt",@ScriptDir &"\UpdateVersion.txt")
$file = FileOpen(@ScriptDir & "\UpdateVersion.txt", 0)
$line = FileRead($file)
If $line = $ver Then
FileClose($file)
Else
FileClose($file)
Sleep(500)
FileDelete("C:\UpdateVersion.txt")
Sleep(1000)
FileCopy(@ScriptDir & "\UpdateVersion.txt", "C:\UpdateVersion.txt")
ProgressOn("Checking Resource", "Checking Resource")
Sleep(1000)
ProgressSet(20, "Checking Resource", "20 %")
Sleep(1000)
ProgressSet(50, "Checking Resource", "50 %")
Sleep(1000)
ProgressSet(100, "Checking Resource", "100 %")
Sleep(500)
ProgressOff()
_Func ()
EndIf
EndFunc
Func _Func ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip = ($IpRead)
Local $meinarray
InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("UpdInf.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("UpdInf.txt", $split[$i] & @crlf)
Next
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\./','/')
Next
_FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.\','\\')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
ProgressOn("Found KalOnline Updates", "KalOnline Update in Progress", "Update",-1,-1,18)
$filename0 = FileOpen("UpdInf.txt",0)
$filename3 = FileOpen("UpdInf2.txt",0)
ProgressSet(0,"0%")
Local $der
$der = FileReadLine("file.txt", 1)
for $i = 1 to $der
$1 = FileReadLine($filename0,$i)
$2 = FileReadLine($filename3,$i)
Inetget($Ip&$1,@ScriptDir &$2)
$prozent = $i/$der*100
$prozent = StringSplit($prozent, ".")
If IsArray($prozent) Then ProgressSet($prozent[1],$2,$prozent[1]&" %")
Next
Sleep(200)
ProgressOff()
FileClose(@ScriptDir &"UpdInf.txt")
FileClose(@ScriptDir &"UpdInf2.txt")
FileClose(@ScriptDir &"file.list")
FileClose(@ScriptDir &"file.txt")
FileDelete(@ScriptDir &"UpdInf.txt")
FileDelete(@ScriptDir &"UpdInf2.txt")
FileDelete(@ScriptDir &"file.list")
FileDelete(@ScriptDir &"file.txt")
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
EndFunc
FileInstall("rd.bmp","C:\Air\KalLauncher\rdacd.bmp")
FileInstall("Start.jpg","C:\Air\KalLauncher\Startb.jpg")
FileInstall("balk.jpg","C:\Air\KalLauncher\balk.jpg")
FileInstall("Options.jpg","C:\Air\KalLauncher\Optionsb.jpg")
FileInstall("Website.jpg","C:\Air\KalLauncher\Websiteb.jpg")
FileInstall("Close.jpg","C:\Air\KalLauncher\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
_GuiRoundCorners($Form1, 0, 0, 65, 65)
$Pic2 = GUICtrlCreatePic("C:\Air\KalLauncher\Startb.jpg", 40, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("C:\Air\KalLauncher\Optionsb.jpg", 210, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("C:\Air\KalLauncher\Websiteb.jpg", 380, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("C:\Air\KalLauncher\Close.jpg", 517, 15, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic13 = GUICtrlCreatePic("C:\Air\KalLauncher\balk.jpg", 0, 269, 550, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Pic1 = GUICtrlCreatePic("C:\Air\KalLauncher\rdacd.bmp", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
GUICtrlCreateLabel("",15,15,520,155,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$Edit1 = GUICtrlCreateEdit("", 0, 168, 550, 89)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
EndSwitch
WEnd
Func _1 ()
ShellExecute("engine.exe","/load /config debug")
Exit
Endfunc
Func _3 ()
ShellExecute($HTT)
Sleep(200)
EndFunc
Func _2 ()
FileInstall("Reso.exe","Reso.exe")
MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
Sleep(500)
Run("Reso.exe")
Exit
EndFunc
Func _4 ()
Exit
Endfunc

[/autoit] [autoit][/autoit] [autoit]

Func _GuiRoundCorners($hWnd, $x1, $y1, $x3, $y3)
Dim $pos, $ret, $ret2
$pos = WinGetPos($hWnd)
$ret = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', _
'long', $x1, _
'long', $y1, _
'long', $pos[2], _
'long', $pos[3], _
'long', $x3, _
'long', $y3)
If $ret[0] Then
$ret2 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $hWnd, 'long', $ret[0], 'int', 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _test()
_picbutton($pic2, $pic3)
EndFunc
Func _picbutton($button1, $button2)
While _IsPressed(01)
GUICtrlSetState($button2, $GUI_SHOW)
GUICtrlSetState($button1, $GUI_HIDE)
Sleep(100)
WEnd
GUICtrlSetState($button1, $GUI_SHOW)
GUICtrlSetState($button2, $GUI_HIDE)
EndFunc

[/autoit]

Eistee

Hallo liebe Community

Ich habe mal eine kleine Frage, und zwar verwende ich in meinem folgendem script Bilder Als buttons.
Aber wenn man einen echten button drückt dan drückt er sich ja sozusagen etwas nach unten oder ? also man sieht halt das man ihn gedrückt hatt
kann man sowas evtl. einbauen ?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <TabConstants.au3>
#include <EditConstants.au3>
#include <DateTimeConstants.au3>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <ProgressConstants.au3>
#include <AVIConstants.au3>
#include <UpDownConstants.au3>
#include<Array.au3>
#include<File.au3>
#include <WinAPI.au3>
#include-once
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

DirCreate("C:\Air\KalLauncher")
$IpRead123 = FileReadLine("Launcher.txt", 6)
$file = InetGetSize($IpRead123 & "/UpdateVersion.txt")
If @error Then
FileInstall("rd.bmp","C:\Air\KalLauncher\rdacd.bmp")
FileInstall("Start.jpg","C:\Air\KalLauncher\Startb.jpg")
FileInstall("balk.jpg","C:\Air\KalLauncher\balk.jpg")
FileInstall("Options.jpg","C:\Air\KalLauncher\Optionsb.jpg")
FileInstall("Website.jpg","C:\Air\KalLauncher\Websiteb.jpg")
FileInstall("Close.jpg","C:\Air\KalLauncher\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
$Pic2 = GUICtrlCreatePic("C:\Air\KalLauncher\Startb.jpg", 40, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("C:\Air\KalLauncher\Optionsb.jpg", 210, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("C:\Air\KalLauncher\Websiteb.jpg", 380, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("C:\Air\KalLauncher\Close.jpg", 517, 15, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic13 = GUICtrlCreatePic("C:\Air\KalLauncher\balk.jpg", 0, 269, 550, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Pic1 = GUICtrlCreatePic("C:\Air\KalLauncher\rdacd.bmp", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
GUICtrlCreateLabel("",15,15,520,155,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$Edit1 = GUICtrlCreateEdit("", 0, 168, 550, 99)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
EndSwitch
WEnd
ElseIf $file > 0 Then
_u ()
EndIf
Func _u ()
$IpRead = FileReadLine("Launcher.txt", 6)
If FileExists("C:\UpdateVersion.txt") Then
_Funce ()
Else
FileWrite("C:\UpdateVersion.txt", "1234567gdertfderdvbhtt")
Sleep(1000)
_Funce ()
EndIf
EndFunc
Func _Funce ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip2 = ($IpRead)
$ver = FileRead("C:\UpdateVersion.txt")
InetGet($Ip2 &"/UpdateVersion.txt",@ScriptDir &"\UpdateVersion.txt")
$file = FileOpen(@ScriptDir & "\UpdateVersion.txt", 0)
$line = FileRead($file)
If $line = $ver Then
FileClose($file)
Else
FileClose($file)
Sleep(500)
FileDelete("C:\UpdateVersion.txt")
Sleep(1000)
FileCopy(@ScriptDir & "\UpdateVersion.txt", "C:\UpdateVersion.txt")
ProgressOn("Checking Resource", "Checking Resource")
Sleep(1000)
ProgressSet(20, "Checking Resource", "20 %")
Sleep(1000)
ProgressSet(50, "Checking Resource", "50 %")
Sleep(1000)
ProgressSet(100, "Checking Resource", "100 %")
Sleep(500)
ProgressOff()
_Func ()
EndIf
EndFunc
Func _Func ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip = ($IpRead)
Local $meinarray
InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("UpdInf.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("UpdInf.txt", $split[$i] & @crlf)
Next
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\./','/')
Next
_FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.\','\\')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
ProgressOn("Found KalOnline Updates", "KalOnline Update in Progress", "Update",-1,-1,18)
$filename0 = FileOpen("UpdInf.txt",0)
$filename3 = FileOpen("UpdInf2.txt",0)
ProgressSet(0,"0%")
Local $der
$der = FileReadLine("file.txt", 1)
for $i = 1 to $der
$1 = FileReadLine($filename0,$i)
$2 = FileReadLine($filename3,$i)
Inetget($Ip&$1,@ScriptDir &$2)
$prozent = $i/$der*100
$prozent = StringSplit($prozent, ".")
If IsArray($prozent) Then ProgressSet($prozent[1],$2,$prozent[1]&" %")
Next
Sleep(200)
ProgressOff()
FileClose(@ScriptDir &"UpdInf.txt")
FileClose(@ScriptDir &"UpdInf2.txt")
FileClose(@ScriptDir &"file.list")
FileClose(@ScriptDir &"file.txt")
FileDelete(@ScriptDir &"UpdInf.txt")
FileDelete(@ScriptDir &"UpdInf2.txt")
FileDelete(@ScriptDir &"file.list")
FileDelete(@ScriptDir &"file.txt")
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
EndFunc
FileInstall("rd.bmp","C:\Air\KalLauncher\rdacd.bmp")
FileInstall("Start.jpg","C:\Air\KalLauncher\Startb.jpg")
FileInstall("balk.jpg","C:\Air\KalLauncher\balk.jpg")
FileInstall("Options.jpg","C:\Air\KalLauncher\Optionsb.jpg")
FileInstall("Website.jpg","C:\Air\KalLauncher\Websiteb.jpg")
FileInstall("Close.jpg","C:\Air\KalLauncher\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
$Pic2 = GUICtrlCreatePic("C:\Air\KalLauncher\Startb.jpg", 40, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("C:\Air\KalLauncher\Optionsb.jpg", 210, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("C:\Air\KalLauncher\Websiteb.jpg", 380, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("C:\Air\KalLauncher\Close.jpg", 517, 15, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic13 = GUICtrlCreatePic("C:\Air\KalLauncher\balk.jpg", 0, 269, 550, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Pic1 = GUICtrlCreatePic("C:\Air\KalLauncher\rdacd.bmp", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
GUICtrlCreateLabel("",15,15,520,155,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$Edit1 = GUICtrlCreateEdit("", 0, 168, 550, 89)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
EndSwitch
WEnd
Func _1 ()
ShellExecute("engine.exe","/load /config debug")
Exit
Endfunc
Func _3 ()
ShellExecute($HTT)
Sleep(200)
EndFunc
Func _2 ()
FileInstall("Reso.exe","Reso.exe")
MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
Sleep(500)
Run("Reso.exe")
Exit
EndFunc
Func _4 ()
Exit
Endfunc

[/autoit] [autoit][/autoit] [autoit]

Func _GuiRoundCorners($hWnd, $x1, $y1, $x3, $y3)
Dim $pos, $ret, $ret2
$pos = WinGetPos($hWnd)
$ret = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', _
'long', $x1, _
'long', $y1, _
'long', $pos[2], _
'long', $pos[3], _
'long', $x3, _
'long', $y3)
If $ret[0] Then
$ret2 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $hWnd, 'long', $ret[0], 'int', 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf
EndFunc

[/autoit]

und wenn ja wie in etwa gibts da was in der hilfe oder so ?

Mfg LogiVidia

P.s. Bilder sind im Anhang

Beiträge von Eistee

Bilder wie button animieren ?

Bilder wie button animieren ?

Frage zu @error

Bilder wie button animieren ?

Extra Funktionen

Extra Funktionen

Frage zu @error

Extra Funktionen

Frage zu @error

Frage zu @error

Bilder wie button animieren ?

Frage zu @error

Bilder wie button animieren ?

Frage zu @error

Frage zu @error

Bilder wie button animieren ?

1 Jahr bei AutoIt.de

Bilder wie button animieren ?

Bilder wie button animieren ?

Bilder wie button animieren ?