Nun ja, ich glaub wir können uns an dich gewöhnen, solange hier nicht wieder welche Leute Streit vom Zaun brechen 
Beiträge von Cartan12
-
-
Junge, jetzt lass es doch mal!!!
Helf lieber anderen Leuten, als ständig rum zu spamen!
Ca. 80% deiner Posts sind Spam...
Na ja, genug aufgeregt -.- -
Schau mal in der deutschen Hilfe unter den Punkten "TCPSend" und "TCPRecv".
Da findest du super Beispiele... -
1. Ja
2. Wie? Du könntest den neuen String dann auf den alten untersuchen (oder was?) -
Klappt auch mein Edit nicht?
-
Machs so:
[autoit]ShellExecute("npp.5.6.8.Installer.exe")
[/autoit]
WinWait("Installer Language","Please select a language.")
WinActivate("Installer Language","Please select a language.")
ControlClick("Installer Language", "", "[CLASS:Button; INSTANCE:1]")Edit: So klappts aber...(habs selber getestet...)
-
Ich würd gerne mitmachen!
Ich wollte auch ein Browsergame programmieren, aber das verstaubt so langsam im "htdocs" Ordner -
sagt der richtige
Das wird wieder eskalieren (mal abgesehen davon, dass ich Sprenger's Meinung voll und ganz unterstütze...)
Ich glaub er wollte nur sagen, dass er die konsequenzen daraus gezogen und eingesehen hat... -
[autoit]
HotKeySet("{NUMPAD1}{NUMPADADD}","mach was")
[/autoit] -
Dann machst du es i-wie so in der Art ($datei musst du noch anpassen...)
Spoiler anzeigen
[autoit]#include <GDIPlus.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>
#include <Color.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>Dim $Pic[10], $datei[10] = ["1.jpg","2.jpg","3.jpg","4.jpg","5.jpg","6.jpg","7.jpg","8.jpg","9.jpg","10.jpg"]
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
For $i = 0 To 9
$Pic[$i]= GUICtrlCreatePic("C:\Dokumente und Einstellungen\Besitzer\Eigene Dateien\" & $datei[$i], 168+$i*100, 160, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Next
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$nMsg = GUIGetMsg()
If $nMsg == $GUI_EVENT_CLOSE Then Exit
For $i = 0 To 9
If $nMsg == $Pic[$i] Then MsgBox(0,"",$i)
Next
WEnd -
Das ist mehr als unnötig...
Wieso fragst du jedesmal die Version ab? Das macht der doch schon am anfang der Schleife...
Der wiederholt die ja solange, bis alles richtig ist, von daher ist meine Version schon richtig -
Lol, mit Switch... Case ist um einiges eleganter
-
So geht sogar noch besser:
Spoiler anzeigen
[autoit]Func Patchstatus()
[/autoit]
InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt")
Do ;fang an zu patchen ....
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Switch $versionlocal
Case "2.3.3.7799"
Patch1()
Case "2.4.0.8089"
Patch2()
Case "2.4.1.8125"
Patch3()
Case "2.4.2.8278"
Patch4()
Case "2.4.3.8606"
Patch5()
Case "3.0.1.8874"
Patch6()
Case "3.0.2.9056"
Patch7()
Case "3.2.0.10192"
Patch8()
Case "3.2.0.10314"
Patch9()
Case "3.2.2.10482"
Patch10()
Case "3.2.2.10505"
Patch11()
Case "3.3.0.10958"
Patch12()
Case "3.3.0.11159"
Patch13()
Case "3.3.2.11403"
Patch14()
Case "3.3.3.11685"
Patch15()
EndSwitch
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")
Until $versionlocal = $versionextern
MsgBox(0, "", "Auf Rising Gods Stand gepatcht")
logfile("Patchstand Rising Gods: " & $versionlocal)
EndFunc ;==>PatchstatusÊdit: Wieder verbessert^^
-
Wenn dann so:Spoiler anzeigen
[autoit]Func Patchstatus()
[/autoit]
Do ;fang an zu patchen ....
InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt")
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")
If $versionlocal = "2.3.3.7799" Then
Patch1()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.0.8089" Then
Patch2()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.1.8125" Then
Patch3()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.2.8278" Then
Patch4()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.3.8606" Then
Patch5()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.0.1.8874" Then
Patch6()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.0.2.9056" Then
Patch7()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.0.10192" Then
Patch8()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.0.10314" Then
Patch9()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.2.10482" Then
Patch10()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.2.10505" Then
Patch11()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.0.10958" Then
Patch12()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.0.11159" Then
Patch13()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.2.11403" Then
Patch14()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.3.11685" Then
Patch15()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")
Until $versionlocal = $versionextern
MsgBox(0, "", "Auf Rising Gods Stand gepatcht")
logfile("Patchstand Rising Gods: " & $versionlocal)
EndFunc ;==>Patchstatus
Edit: hab was vergessen zu löschen...
Edit2: Nochmals verbessert -
So klappts auch^^ jetzt speichert das Programm die runtergeladenen Sachen IMMER als .cab ab
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <INet.au3>
$Width = 385
$High = 145
GUICreate ("Bierm?nnsche PC-Manufakturen - Produkt Downloader", $Width, $High)
$URL1 = "http://biermaennsche@biermaennsche.bplaced.net/Software/KDE-Tool%20%20%20V%202.0%20-%20Setup.cab"
$URL2 = "http://biermaennsche@biermaennsche.bplaced.net/Software/Attribut%20Changer.cab"
$URL3 = "http://biermaennsche@biermaennsche.bplaced.net/Software/SysInfo%20Tool%20-%20Setup.cab"
$HK = 15
$BK = 10
$Breite = $Width -20
$Hoehe = 35
GUICtrlCreateGroup ("Kizzys Verschl?sselungs Tool", $BK, $HK-5, $Breite, $Hoehe)
GUICtrlCreateLabel("Lizenzschl?ssel", $BK+5, $HK +10, 75,15)
GUICtrlCreateInput("ZLM79-B6FLK-9OP91-JGH75-JXD6T", $BK+90, $HK+10, 178, 15, (-1), 0x0800)
$DownloadButton1=GUICtrlCreateButton ("Download now!", $BK + 280, $HK +5, 80, 22)
GUICtrlCreateGroup ("", -99, -99, 1, 1)GUICtrlCreateGroup ("AttribChanger", $BK, $HK+40-5, $Breite, $Hoehe)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("Lizenzschl?ssel", $BK+5, $HK +50,75,15)
GUICtrlCreateInput("ZLM79-B6FLK-9OP91-JGH75-JXD6T", $BK+90, $HK+50, 178,15, (-1), 0x0800)
$DownloadButton2=GUICtrlCreateButton ("Download now!", $BK + 280, $HK +45, 80, 22)
GUICtrlCreateGroup ("", -99, -99, 1, 1)GUICtrlCreateGroup ("SysInfo Tool", $BK, $HK+80-5, $Breite, $Hoehe)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("Lizenzschl?ssel", $BK+5, $HK +90,75,15)
GUICtrlCreateInput("ZLM79-B6FLK-9OP91-JGH75-JXD6T", $BK+90, $HK+90, 178, 15, (-1), 0x0800)
$DownloadButton3=GUICtrlCreateButton ("Download now!", $BK + 280, $HK +85, 80, 22)
GUICtrlCreateGroup ("", -99, -99, 1, 1)GUICtrlCreateLabel("?2010-2020 by Bierm?nnsche PC-Manuafkturen/Keziah Biermann", $BK+2, $High-15)
[/autoit] [autoit][/autoit] [autoit]
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $DownloadButton1
$Pfad1=FileSaveDialog ("Download speichern unter...", @MyDocumentsDir, "Cabinett-Archiv (*.cab)",16)
If @error = 1 Then
ExitLoop
EndIf
If StringRight($Pfad1, 4) <> ".cab" Then $Pfad1 &= ".cab" ; $Pfad2; $Pfad3
$Size1 = InetGetSize ( $URL1 )
$MsgBox1 = MsgBox ( 52, "Download wirklich starten?", "M?chten Sie den Download wirklich starten? Sie k?nnen ihn nur abbrechen, in dem Sie dieses Programm und alle anderen Downloads in diesem Programm beenden. Der Download ist "&$Size1&" Bytes gro?."&@CRLF&@CRLF&"M?chten Sie wirklich fortfahren?")
If $MsgBox1 <> 6 Then
MsgBox (16, "Download abgebrochen", "Der Download wurde abgebrochen. Das Programm wird nun beendet.")
Exit
EndIf
InetGet ( $URL1 , $Pfad1, 0, 1)
If @InetGetBytesRead = -1 Then
MsgBox (16, "Fehler", "Der Download ist fehlgeschlagen. Bitte versuchen Sie es manuell, in dem Sie """&$URL1&""" in ihrem Browser aufrufen. Trotz der Fehlermeldung, dass Sie keinen Zugriff haben, sollte der Download starten.")
Else
MsgBox (64, "Download abgeschlossen", "Der Download wurde erfolgreich abgeschlossen. Die Datei wurde in """&$Pfad1&""" gespeichert. Vielen Dank, dass Sie sich f?r Software von den Bierm?nnschen PC-Manufakturen entschieden haben.")
EndIf
Do
GUICreate ("Programm l?dt", 200, 100)
GUICtrlCreateLabel ("Das Programm l?dt... Bitte warten. Schon "&@InetGetBytesRead&" Bytes von "&$Size1&" geladen",10,10)
GUIDelete()
Until @InetGetActive = 0
Case $msg = $DownloadButton2
$Pfad2=FileSaveDialog ("Download speichern unter...", @MyDocumentsDir, "Cabinett-Archiv (*.cab)",16)
If @error = 1 Then
ExitLoop
EndIf
If StringRight($Pfad1, 4) <> ".cab" Then $Pfad1 &= ".cab" ; $Pfad2; $Pfad3
$Size2 = InetGetSize ( $URL2 )
$MsgBox2 = MsgBox ( 52, "Download wirklich starten?", "M?chten Sie den Download wirklich starten? Sie k?nnen ihn nur beenden, in dem Sie dieses Programm und alle anderen Downloads in diesem Programm beenden. Der Download ist "&$Size2&" Bytes gro?."&@CRLF&@CRLF&"M?chten Sie wirklich fortfahren?"
If $MsgBox2 <> 6 Then
MsgBox (16, "Download abgebrochen", "Der Download wurde abgebrochen. Das Programm wird nun beendet.")
Exit
EndIf
InetGet ( $URL2 , $Pfad2, 0, 1)If @InetGetBytesRead = -1 Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox (16, "Fehler", "Der Download ist fehlgeschlagen. Bitte versuchen Sie es manuell, in dem Sie """&$URL2&""" in ihrem Browser aufrufen. Trotz der Fehlermeldung, dass Sie keinen Zugriff haben, sollte der Download starten.")
EndIf
Do
GUICreate ("Programm l?dt", 200, 100)
GUICtrlCreateLabel ("Das Programm l?dt... Bitte warten. Schon "&@InetGetBytesRead&" Bytes von "&$Size2&" geladen", 10, 10)
GUIDelete()
Until @InetGetActive = 0
MsgBox (64, "Download abgeschlossen", "Der Download wurde erfolgreich abgeschlossen. Die Datei wurde in """&$Pfad2&""" gespeichert. Vielen Dank, dass Sie sich f?r Software von den Bierm?nnschen PC-Manufakturen entschieden haben.")
Case $msg = $DownloadButton3
$Pfad3=FileSaveDialog ("Download speichern unter...", @MyDocumentsDir, "Cabinett-Archiv (*.cab)",16)
If @error = 1 Then
ExitLoop
EndIf
If StringRight($Pfad1, 4) <> ".cab" Then $Pfad1 &= ".cab" ; $Pfad2; $Pfad3
$Size3 = InetGetSize ( $URL3 )
$MsgBox3 = MsgBox ( 52, "Download wirklich starten?", "M?chten Sie den Download wirklich starten? Sie k?nnen ihn nur beenden, in dem Sie dieses Programm und alle anderen Downloads in diesem Programm beenden. Der Download ist "&$Size3&" Bytes gro?."&@CRLF&@CRLF&"M?chten Sie wirklich fortfahren?"
If $MsgBox3 <> 6 Then
MsgBox (16, "Download abgebrochen", "Der Download wurde abgebrochen. Das Programm wird nun beendet.")
Exit
EndIf
InetGet ( $URL3 , $Pfad3, 0, 1)
If @InetGetBytesRead = -1 Then
MsgBox (16, "Fehler", "Der Download ist fehlgeschlagen. Bitte versuchen Sie es manuell, in dem Sie """&$URL3&""" in ihrem Browser aufrufen. Trotz der Fehlermeldung, dass Sie keinen Zugriff haben, sollte der Download starten.")
EndIfDo
[/autoit]
GUICreate ("Programm l?dt", 200, 100)
GUICtrlCreateLabel ("Das Programm l?dt... Bitte warten. Schon "&@InetGetBytesRead&" Bytes von "&$Size3&" geladen",10,10)
GUIDelete()
Until @InetGetActive = 0
MsgBox (64, "Download abgeschlossen", "Der Download wurde erfolgreich abgeschlossen. Die Datei wurde in """&$Pfad3&""" gespeichert. Vielen Dank, dass Sie sich f?r Software von den Bierm?nnschen PC-Manufakturen entschieden haben.")
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd -
Ich dacht schon
Da kann ich mich Jonathan nur voll und ganz anschließen
-
Data: Schau dir mal den "Bearbeiten" Button hier im Forum an, damit kannst du Doppelposts vermeiden^^
-
Das fehlt noch:
[autoit]If StringRight($Pfad1, 4) <> ".cab" Then $Pfad1 &= ".cab" ; $Pfad2; $Pfad3
[/autoit]Sonst bekommen die Dummen das nicht als .cab abgespeichert^^
-
Ich mein eher, dass das Probeme mit sich bringt... Das Problem ist, BlockInput klappt.
Das ist nur ein sehr kurzer Momment, aber das Nervt trotzdem, wenn man während des Downloadens nicht machen kann...Edit: Ok, kein BlockInput, aber da is immer noch was, was meinen PC durcheinander bringt...
-
Ich glaub, du hast da irgendwo "BlockInput" angewand, und das klappt i-wie gar nicht
