lachen -> german-bash
Beiträge von GtaSpider
-
-
Danke -> Bitte (mal wieder sehr einfallsreich ~~)
Kann doch nich sein das nur Fast2 und ich hier mitmachen...^^
-
Kloaka maxima -> Gesundheit
-
Ach man, hab ich in Geschichte aufgepasst? :pinch:
Naja, zum glück gibt es Wikipedia
Oktavius -> Rom -
König -> Kaiser
-
cool -> ich
-
Hallo
Find ich gehört in jedes Gutes Forum^^
Regeln
Ich sag z.B. Autoit
Dann der nächste: AutoIt -> Programmiersprache
Dann der nächste: Programmiersprache -> C++
usw usw. Also immer weiterführen, mit dem letzen Wort des vorgängers anfangen, und dann ein Wort mit richtigen zusammenhang hinterher fügenIch fang mal an..
erstes Wort: AutoIt (natürlich )Mfg Spider
-
Hallo
So sollte es gehen:
Spoiler anzeigen
[autoit]#include "GUIConstants.au3"
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form2 = GUICreate("Form1", 413, 241, 303, 219,$WS_SIZEBOX)
$ListView1 = GUICtrlCreateListView("1|2|3|4", 5, 5, 405, 150)
GUICtrlSetResizing(-1,102)
GUICtrlSendMsg(-1, 0x101E, 0, 50)
GUICtrlSendMsg(-1, 0x101E, 1, 50)
GUICtrlSendMsg(-1, 0x101E, 2, 50)
GUICtrlSendMsg(-1, 0x101E, 3, 50)
$ListView1_0 = GUICtrlCreateListViewItem("123|123|123|123", $ListView1)
$ListView1_1 = GUICtrlCreateListViewItem("234|234|234|234", $ListView1)
$ListView1_2 = GUICtrlCreateListViewItem("345|35|345|345|", $ListView1)
$ListView1_3 = GUICtrlCreateListViewItem("456|456|456|456", $ListView1)
$ListView1_4 = GUICtrlCreateListViewItem("567|567|567|567", $ListView1)
$ListView1_5 = GUICtrlCreateListViewItem("67 67 67 678", $ListView1)
$ListView1_6 = GUICtrlCreateListViewItem("789|789|789|789", $ListView1)
$ListView1_7 = GUICtrlCreateListViewItem("890|890|890|890", $ListView1)
$ListView1_8 = GUICtrlCreateListViewItem("111|111|111|111", $ListView1)
$ListView1_9 = GUICtrlCreateListViewItem("222|222|222|222", $ListView1)
$ListView1_10 = GUICtrlCreateListViewItem("333|333|333|333", $ListView1)
$ListView1_11 = GUICtrlCreateListViewItem("444|444|444|444", $ListView1)
$ListView1_12 = GUICtrlCreateListViewItem("555|555|555|555", $ListView1)
$ListView1_13 = GUICtrlCreateListViewItem("666|666|666|666", $ListView1)
$ListView1_14 = GUICtrlCreateListViewItem("777|777|777|777", $ListView1)
$ListView1_15 = GUICtrlCreateListViewItem("88 88 88 888", $ListView1)
$ListView1_16 = GUICtrlCreateListViewItem("999|999|999|999", $ListView1)
$ListView1_17 = GUICtrlCreateListViewItem("000|000|000|000", $ListView1)
$Label1 = GUICtrlCreateLabel("Der Text soll am unteren Rand bleiben", 5, 160, 185, 17)
GUICtrlSetResizing(-1,768+64)
$Label2 = GUICtrlCreateLabel("Aber das ListView soll nach unten hin", 5, 180, 180, 17)
GUICtrlSetResizing(-1,768+64)
$Label3 = GUICtrlCreateLabel("größer werden.", 5, 200, 75, 17)
GUICtrlSetResizing(-1,768+64)
$Label4 = GUICtrlCreateLabel("Wie geht das???", 5, 220, 85, 17)
GUICtrlSetResizing(-1,768+64)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit]
WEndMfg Spider
-
-
Hallo
Danke erstmal für die Posts.
Fast2: Jo, reboot hat geholfen, aber das is ja auch nich das problem. Das Problem ist, dass ich immer Rebooten muss^^
(Google hackt mich, weil es immer Google errors gab :P)Carsten8: Hab ich auch schon ausprobiert, es kommt aber trozdem, auch wenn alle toolbars Deinstalliert sind
Host.ics hab ich nicht, die Datei. Aber alles was in dem ordner etc war ist im Anhang.Vielen Dank nochmal
Mfg Spider
-
Hallo
Ich hab ein Problem, welches oft dann in Kraft tritt, wenn ich vom Ruhezustand, Standby oder manchmal auch von Online Spielen zurückkomm.
Ab und zu funktioniert auch alles nach Standby/Ruhezustand/Online Spielen, aber manchmal eben nicht.Also, ich habe noch eine Verbindung zur ausenwelt (Ping Router, ping google und ping autoit.de funktionieren) aber mein Firefox/Internetexplorer/Opera spinnt.
Ich krieg verschiedene Fehlermeldung:Fehler1
[Blockierte Grafik: http://img-up.net/img/001sHO6mNTc.JPG]
Fehler2
[Blockierte Grafik: http://img-up.net/img/002jZ4uckr.JPG]
Fehler3
[Blockierte Grafik: http://img-up.net/img/00319v6X9z.JPG]
Fehler4
[Blockierte Grafik: http://img-up.net/img/00319v6X9z.JPG]
Fehler5
[Blockierte Grafik: http://img-up.net/img/0054JqijA.JPG]
Fehler6
[Blockierte Grafik: http://img-up.net/img/006CcxgO3.JPG]
Fehler7
[Blockierte Grafik: http://img-up.net/img/007k581lXx.JPG]
Fehler8
[Blockierte Grafik: http://img-up.net/img/008E5DyzXFO.JPG]
Mir ist aufgefallen das Fehler 1 und Fehler 2 nur bei Rootverzeichnissen auftritt (also https://autoit.de/www.autoit.de) die anderen Fehler aber vermischt (https://autoit.de/www.autoit.de/…ndex.php?blabla)
Zu Hamachi hab ich auch noch Verbindung.
Auch komisch ist, dass ich anscheinend zu https:// seiten Konnektivität (wie XP es nennt^^) hab, z.B. zu https://secure.logmein.com/Manchmal kommen auch noch andere Fehler:
andere Fehler 1
Bad Request (Invalid Hostname)
andere Fehler 2
Invalid URL
The requested URL "/webhp?hl=de", is invalid.Reference #9.b943554.1198892988.0
andere Fehler 3
Forbidden
You don't have permission to access / on this server.Apache/1.3.26 Server at servserv.generals.ea.com Port 80)
Der dritte andere Fehler ist GAAANZ komisch, weil ich da Google aufgerufen hab, dort aber servserv.generals.ea.com steht.
Als ich diesen error aufgeschrieben hab, hab ich zuvor aber CnC3 Online gezockt (EA game)Also, ich finde das alles sehr komisch?! Hat jemand eine Idee warum das so ist? Und warum kommt oft google error?
Ich hab den Verdacht das es mit den Treibern zusammen hängt.Details
Motherboard: Asus M2N-E SLI
Netzwerkkarte: NVIDIA nForce 570 Networking ControllerIch hoffe mir kann jemand helfen^^
Mfg Spider
-
Hallo
[ offen ] Bestimmte Wörter in einer Mail suchen? (Outlook)
Hab einfach nach "Outlook" gesucht
Das Liest den Body der Emails zwar aus, sollte aber nicht all zuschwer sein das umzuschreiben.Mfg Spider
-
Hallo
http://www.autoitscript.com/autoit3/scite/downloads.shtml
Hier der erste Link gaaaaaaaanz oben. Das Downloaden, installieren und Fertig.Mfg Spider
-
Hallo
Als erstes musst bei Scite im Menü "Tools" auf "Trace: Add Trace Lines" klicken
[Blockierte Grafik: http://img-up.net/img/menutZsJcLx7.JPG]
.
Danach drücke in SciTe STRG + H. Dann in der Oberen Inputbox ConsoleWrite( einfügen, und in der unteren FileWrite("txt.log",.
[Blockierte Grafik: http://img-up.net/img/ctrlhTEOVm.JPG]
Dann nurnoch auf "Replace All" klicken, und FertigNun schreibt er die Daten in die Datei "txt.log" im Scriptverzeichniss.
Mfg Spider
-
Hallo
Warum einfach wenn es auch kompliziert geht!? Du hast natürlich Recht, hier eine Version mit Log datei:
Spoiler anzeigen
[autoit]Global $log = FileOpen("bla.log",1)
[/autoit] [autoit][/autoit] [autoit]
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(4) : ;~ #NoTrayIcon' & @crlf) ;### Trace Console
;~ #NoTrayIcon
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(8) : #Region ;**** Directives created by AutoIt3Wrapper_GUI ****' & @crlf) ;### Trace Console
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(10) : #AutoIt3Wrapper_icon=schloss.ico' & @crlf) ;### Trace Console
#AutoIt3Wrapper_icon=schloss.ico
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(12) : #AutoIt3Wrapper_outfile=SICK_032.exe' & @crlf) ;### Trace Console
#AutoIt3Wrapper_outfile=SICK_032.exe
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(14) : #AutoIt3Wrapper_Res_Comment=none' & @crlf) ;### Trace Console
#AutoIt3Wrapper_Res_Comment=none
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(16) : #AutoIt3Wrapper_Res_LegalCopyright=' & @crlf) ;### Trace Console
#AutoIt3Wrapper_Res_LegalCopyright=
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(18) : #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****' & @crlf) ;### Trace Console
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(20) : #include <INet.au3> ' & @crlf) ;### Trace Console
#include <INet.au3>
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(22) : #include <array.au3>' & @crlf) ;### Trace Console
#include <array.au3>
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(24) : #include <File.au3>' & @crlf) ;### Trace Console
#include <File.au3>FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(27) : Opt("TrayIconDebug", 1)' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Opt("TrayIconDebug", 1)FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(30) : fileinstall("updater.exe",@ProgramFilesDir & "\updater.exe")' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
fileinstall("updater.exe",@ProgramFilesDir & "\updater.exe")FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(33) : dim $label, $num, $codes, $prem, $zaehler1, $lines, $i, $zaehler, $output, $write' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
dim $label, $num, $codes, $prem, $zaehler1, $lines, $i, $zaehler, $output, $write
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(35) : $num=0' & @crlf) ;### Trace Console
$num=0
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(37) : $output=''c:\softcam\neon.key''' & @crlf) ;### Trace Console
$output='c:\softcam\neon.key'FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(40) : ;___main start_______________________________________________________________________________________________________ ' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;___main start_______________________________________________________________________________________________________
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(42) : GUISetFont (10, 000, 0, "Arial")' & @crlf) ;### Trace Console
GUISetFont (10, 000, 0, "Arial")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(44) : GUICreate(" S . I . C . K . Softcam Independet Cool Key''s v 0.32",610,250)' & @crlf) ;### Trace Console
GUICreate(" S . I . C . K . Softcam Independet Cool Key's v 0.32",610,250)FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(47) : ;show gui ' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;show gui
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(49) : GUISetFont (8, 000, 0, "Arial")' & @crlf) ;### Trace Console
GUISetFont (8, 000, 0, "Arial")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(51) : GUICtrlCreateLabel("compiled by neon , ALL RIGHTS AND BEER''S RESERVED, PROVIDED <=> AS IS <=> WITHOUT WARRANTY OF ANY KIND",10,180,600,15,$ES_READONLY)' & @crlf) ;### Trace Console
GUICtrlCreateLabel("compiled by neon , ALL RIGHTS AND BEER'S RESERVED, PROVIDED <=> AS IS <=> WITHOUT WARRANTY OF ANY KIND",10,180,600,15,$ES_READONLY)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(53) : GUICtrlSetColor(-1,0xaaaaaa)' & @crlf) ;### Trace Console
GUICtrlSetColor(-1,0xaaaaaa)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(55) : GUISetFont (10, 000, 0, "Arial")' & @crlf) ;### Trace Console
GUISetFont (10, 000, 0, "Arial")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(57) : $ping_btn = GUICtrlCreateButton("ping",205, 200, 40,40,$bs_icon)' & @crlf) ;### Trace Console
$ping_btn = GUICtrlCreateButton("ping",205, 200, 40,40,$bs_icon)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(59) : GUICtrlSetImage(-1,"setupapi.dll",-6,1)' & @crlf) ;### Trace Console
GUICtrlSetImage(-1,"setupapi.dll",-6,1)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(61) : GUICtrlSetTip(-1,"ping satnet")' & @crlf) ;### Trace Console
GUICtrlSetTip(-1,"ping satnet")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(63) : $OK_Btn = GUICtrlCreateButton("show",255, 200, 40,40,$bs_icon)' & @crlf) ;### Trace Console
$OK_Btn = GUICtrlCreateButton("show",255, 200, 40,40,$bs_icon)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(65) : gUICtrlSetImage(-1,"shell32.dll",-105,1)' & @crlf) ;### Trace Console
gUICtrlSetImage(-1,"shell32.dll",-105,1)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(67) : GUICtrlSetTip(-1,"show main keys")' & @crlf) ;### Trace Console
GUICtrlSetTip(-1,"show main keys")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(69) : $write_keys_btn = GUICtrlCreateButton("make",305, 200, 40,40,$bs_icon)' & @crlf) ;### Trace Console
$write_keys_btn = GUICtrlCreateButton("make",305, 200, 40,40,$bs_icon)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(71) : gUICtrlSetImage(-1,"shell32.dll",-45,1)' & @crlf) ;### Trace Console
gUICtrlSetImage(-1,"shell32.dll",-45,1)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(73) : GUICtrlSetTip(-1,"write Keyfile")' & @crlf) ;### Trace Console
GUICtrlSetTip(-1,"write Keyfile")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(75) : $transfer_btn = GUICtrlCreateButton("tran",355, 200, 40,40,$bs_icon)' & @crlf) ;### Trace Console
$transfer_btn = GUICtrlCreateButton("tran",355, 200, 40,40,$bs_icon)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(77) : GUICtrlSetImage(-1,"setupapi.dll",-17,1)' & @crlf) ;### Trace Console
GUICtrlSetImage(-1,"setupapi.dll",-17,1)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(79) : GUICtrlSetTip(-1,"Transfer to Receiver")' & @crlf) ;### Trace Console
GUICtrlSetTip(-1,"Transfer to Receiver")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(81) : $exit_btn = GUICtrlCreateButton("exit",405, 200, 40,40,$bs_icon)' & @crlf) ;### Trace Console
$exit_btn = GUICtrlCreateButton("exit",405, 200, 40,40,$bs_icon)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(83) : GUICtrlSetImage(-1,"shell32.dll",-28,1)' & @crlf) ;### Trace Console
GUICtrlSetImage(-1,"shell32.dll",-28,1)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(85) : GUICtrlSetTip(-1,"Exit")' & @crlf) ;### Trace Console
GUICtrlSetTip(-1,"Exit")FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(88) : GUISetState(@SW_SHOW)' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(90) : While 1' & @crlf) ;### Trace Console
While 1
sleep(10)
$msg=GUIGetMsg()
Select
Case $msg = $OK_Btn
call("list_codes")
case $msg = $GUI_EVENT_CLOSE
ExitLoop
case $msg = $ping_btn
call("my_ping")
case $msg = $write_keys_btn
call("make_keyfile")
case $msg = $transfer_btn
update_it()
case $msg = $exit_btn
ExitLoop
EndSelect
WEnd
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(125) : if ProcessExists("updater.exe") then ProcessClose("updater.exe")' & @crlf) ;### Trace Console
if ProcessExists("updater.exe") then ProcessClose("updater.exe")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(127) : ProcessWaitClose("updater.exe")' & @crlf) ;### Trace Console
ProcessWaitClose("updater.exe")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(129) : FileDelete(@ProgramFilesDir & "\updater.exe")' & @crlf) ;### Trace Console
FileDelete(@ProgramFilesDir & "\updater.exe")FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(132) : ;___main end_________________________________________________________________________________________________________ ' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;___main end_________________________________________________________________________________________________________FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(135) : Func list_codes()' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Func list_codes()
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(137) : $font="Arial"' & @crlf) ;### Trace Console
$font="Arial"
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(139) : GUISetFont (10, 000, 0, $font)' & @crlf) ;### Trace Console
GUISetFont (10, 000, 0, $font)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(141) : GUICtrlCreateLabel("Your Main Prem**** Keys for Today are:",20,15,300,20)' & @crlf) ;### Trace Console
GUICtrlCreateLabel("Your Main Prem**** Keys for Today are:",20,15,300,20)FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(144) : ;alle codes einlesen' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;alle codes einlesen
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(146) : dim $codes[500]' & @crlf) ;### Trace Console
dim $codes[500]
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(148) : _OnlineReadToArray("http://www.satnet.ch/softcam/Softcam.key",$codes)' & @crlf) ;### Trace Console
_OnlineReadToArray("http://www.satnet.ch/softcam/Softcam.key",$codes)FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(152) : ;codes sortieren' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;codes sortieren
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(154) : dim $prem[2]' & @crlf) ;### Trace Console
dim $prem[2]
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(156) : $zaehler1 = 1' & @crlf) ;### Trace Console
$zaehler1 = 1
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(158) : For $i = 1 To UBound($codes) - 1 ' & @crlf) ;### Trace Console
For $i = 1 To UBound($codes) - 1
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(160) : if stringleft($codes[$i],4) = ''N 05'' and not StringInStr($codes[$i],''EMM IDEA'') or stringinstr($codes[$i], "19°") or stringinstr($codes[$i], "ORF") then' & @crlf) ;### Trace Console
if stringleft($codes[$i],4) = 'N 05' and not StringInStr($codes[$i],'EMM IDEA') or stringinstr($codes[$i], "19°") or stringinstr($codes[$i], "ORF") then
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(162) : $prem[$zaehler1] = $codes[$i]' & @crlf) ;### Trace Console
$prem[$zaehler1] = $codes[$i]
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(164) : $zaehler1 = $zaehler1 + 1' & @crlf) ;### Trace Console
$zaehler1 = $zaehler1 + 1
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(166) : ReDim $prem[$zaehler1+1]' & @crlf) ;### Trace Console
ReDim $prem[$zaehler1+1]
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(168) : EndIf' & @crlf) ;### Trace Console
EndIf
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(170) : Next' & @crlf) ;### Trace Console
Next
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(172) : ; _ArrayDisplay($prem)' & @crlf) ;### Trace Console
; _ArrayDisplay($prem)FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(175) : ;in 2er gruppen anzeigen' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;in 2er gruppen anzeigen
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(177) : for $num = 1 to 3 ; UBound($prem) - 1' & @crlf) ;### Trace Console
for $num = 1 to 3 ; UBound($prem) - 1
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(179) : GUICtrlCreateinput(stringleft($prem[$num],9),20,(20*$num)+20,90,20,$ES_READONLY)' & @crlf) ;### Trace Console
GUICtrlCreateinput(stringleft($prem[$num],9),20,(20*$num)+20,90,20,$ES_READONLY)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(181) : for $num2 = 0 to 30 step 2' & @crlf) ;### Trace Console
for $num2 = 0 to 30 step 2
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(183) : GUICtrlCreateinput(stringmid($prem[$num],11+$num2,2),90+(30*(($num2+1)/2)),(20*$num)+20,30,20,$ES_READONLY)' & @crlf) ;### Trace Console
GUICtrlCreateinput(stringmid($prem[$num],11+$num2,2),90+(30*(($num2+1)/2)),(20*$num)+20,30,20,$ES_READONLY)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(185) : GUICtrlSetColor(-1,0x0000ff)' & @crlf) ;### Trace Console
GUICtrlSetColor(-1,0x0000ff)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(187) : next' & @crlf) ;### Trace Console
nextFileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(190) : Next' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Next
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(192) : EndFunc' & @crlf) ;### Trace Console
EndFuncFileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(195) : Func my_ping()' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Func my_ping()
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(197) : $var = Ping("www.satnet.ch",4000)' & @crlf) ;### Trace Console
$var = Ping("www.satnet.ch",4000)
If $var Then; also possible: If @error = 0 Then ...
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(200) : GUISetFont (11, 000, 0, "Arial")' & @crlf) ;### Trace Console
GUISetFont (11, 000, 0, "Arial")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(202) : GUICtrlCreateLabel("Online - SATNET responds in : " & $var & '' ms'',205,150,400,20,$ES_READONLY)' & @crlf) ;### Trace Console
GUICtrlCreateLabel("Online - SATNET responds in : " & $var & ' ms',205,150,400,20,$ES_READONLY)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(204) : GUICtrlSetColor(-1,0x009900)' & @crlf) ;### Trace Console
GUICtrlSetColor(-1,0x009900)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(206) : Else' & @crlf) ;### Trace Console
Else
Msgbox(0,"Online Status","Error: " & @error)
;~ When the function fails (returns 0) @error contains extended information:
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(210) : ;~ 1 = Host is offline' & @crlf) ;### Trace Console
;~ 1 = Host is offline
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(212) : ;~ 2 = Host is unreachable' & @crlf) ;### Trace Console
;~ 2 = Host is unreachable
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(214) : ;~ 3 = Bad destination' & @crlf) ;### Trace Console
;~ 3 = Bad destination
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(216) : ;~ 4 = Other errors' & @crlf) ;### Trace Console
;~ 4 = Other errors
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(218) : EndIf' & @crlf) ;### Trace Console
EndIf
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(220) : EndFunc' & @crlf) ;### Trace Console
EndFuncFileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(223) : Func _OnlineReadToArray($sURL,ByRef $aArray) ;By GtaSpider' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Func _OnlineReadToArray($sURL,ByRef $aArray) ;By GtaSpider
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(225) : Local $source = _INetGetSource($sURL)' & @crlf) ;### Trace Console
Local $source = _INetGetSource($sURL)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(227) : $aArray = StringSplit($source, @CRLF)' & @crlf) ;### Trace Console
$aArray = StringSplit($source, @CRLF)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(229) : EndFunc ;==>_OnlineReadToArray' & @crlf) ;### Trace Console
EndFunc ;==>_OnlineReadToArrayFileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(232) : ;___________________________________________________- write new keyfile' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;___________________________________________________- write new keyfile
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(234) : func make_keyfile()' & @crlf) ;### Trace Console
func make_keyfile()FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(237) : dim $codes[1000]' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
dim $codes[1000]
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(239) : _OnlineReadToArray("http://www.satnet.ch/softcam/Softcam.key",$codes)' & @crlf) ;### Trace Console
_OnlineReadToArray("http://www.satnet.ch/softcam/Softcam.key",$codes)FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(243) : ; codes sortieren' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
; codes sortieren
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(245) : dim $prem[2]' & @crlf) ;### Trace Console
dim $prem[2]
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(247) : $zaehler1 = 1' & @crlf) ;### Trace Console
$zaehler1 = 1
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(249) : For $i = 1 To UBound($codes) - 1 ' & @crlf) ;### Trace Console
For $i = 1 To UBound($codes) - 1
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(251) : if stringleft($codes[$i],4) = ''N 05'' and not StringInStr($codes[$i],''EMM IDEA'') or stringinstr($codes[$i], "19°") or stringinstr($codes[$i], "ORF") then ' & @crlf) ;### Trace Console
if stringleft($codes[$i],4) = 'N 05' and not StringInStr($codes[$i],'EMM IDEA') or stringinstr($codes[$i], "19°") or stringinstr($codes[$i], "ORF") then
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(253) : $prem[$zaehler1] = $codes[$i]' & @crlf) ;### Trace Console
$prem[$zaehler1] = $codes[$i]
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(255) : $zaehler1 = $zaehler1 + 1' & @crlf) ;### Trace Console
$zaehler1 = $zaehler1 + 1
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(257) : ReDim $prem[$zaehler1+1]' & @crlf) ;### Trace Console
ReDim $prem[$zaehler1+1]
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(259) : EndIf' & @crlf) ;### Trace Console
EndIf
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(261) : Next' & @crlf) ;### Trace Console
NextFileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(265) : if FileExists($output) = 1 then filemove($output,"c:\softcam\_____" & @YEAR & "_" & @MON & "_" & @mday & "___" & @HOUR & "_" & @MIN & ".key")' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
if FileExists($output) = 1 then filemove($output,"c:\softcam\_____" & @YEAR & "_" & @MON & "_" & @mday & "___" & @HOUR & "_" & @MIN & ".key")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(267) : FileDelete($output)' & @crlf) ;### Trace Console
FileDelete($output)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(269) : $write = FileOpen($output, 1) ; Zuweisung Datei an Filehandle' & @crlf) ;### Trace Console
$write = FileOpen($output, 1) ; Zuweisung Datei an FilehandleFileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(272) : For $i = 1 To UBound($prem) - 2' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
For $i = 1 To UBound($prem) - 2
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(274) : FileWriteLine($output, $prem[$i])' & @crlf) ;### Trace Console
FileWriteLine($output, $prem[$i])
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(276) : Next' & @crlf) ;### Trace Console
NextFileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(279) : FileClose($write) ; Filehandle schließen' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
FileClose($write) ; Filehandle schließen
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(281) : GUISetFont (11, 000, 0, "Arial")' & @crlf) ;### Trace Console
GUISetFont (11, 000, 0, "Arial")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(283) : GUICtrlCreateLabel(_FileCountLines ($output) & " keys saved in " & $output ,205,150,400,20,$ES_READONLY)' & @crlf) ;### Trace Console
GUICtrlCreateLabel(_FileCountLines ($output) & " keys saved in " & $output ,205,150,400,20,$ES_READONLY)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(285) : GUICtrlSetColor(-1,0x990000)' & @crlf) ;### Trace Console
GUICtrlSetColor(-1,0x990000)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(287) : EndFunc' & @crlf) ;### Trace Console
EndFuncFileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(291) : Func update_it()' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Func update_it()
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(293) : if ProcessExists( ''updater.exe'' ) Then ProcessClose("updater.exe")' & @crlf) ;### Trace Console
if ProcessExists( 'updater.exe' ) Then ProcessClose("updater.exe")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(295) : Run(@comspec & '' /c '' & @ProgramFilesDir & "\updater.exe","",$OPT_ERRORSILENT)' & @crlf) ;### Trace Console
Run(@comspec & ' /c ' & @ProgramFilesDir & "\updater.exe","",$OPT_ERRORSILENT)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(297) : processwait("updater.exe", 3000)' & @crlf) ;### Trace Console
processwait("updater.exe", 3000)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(299) : if ProcessExists( ''updater.exe'' ) Then' & @crlf) ;### Trace Console
if ProcessExists( 'updater.exe' ) Then
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(301) : Else' & @crlf) ;### Trace Console
Else
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(303) : MsgBox(16,"Achtung", "Der Updater konnte nicht gestartet werden!",15)' & @crlf) ;### Trace Console
MsgBox(16,"Achtung", "Der Updater konnte nicht gestartet werden!",15)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(305) : EndIf' & @crlf) ;### Trace Console
EndIfFileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(308) : Send("!f") ' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Send("!f")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(310) : Sleep(200)' & @crlf) ;### Trace Console
Sleep(200)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(312) : Send("o")' & @crlf) ;### Trace Console
Send("o")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(314) : Sleep(200)' & @crlf) ;### Trace Console
Sleep(200)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(316) : Send("c:\softcam\neon.key")' & @crlf) ;### Trace Console
Send("c:\softcam\neon.key")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(318) : Sleep(300)' & @crlf) ;### Trace Console
Sleep(300)
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(320) : send("!f")' & @crlf) ;### Trace Console
send("!f")
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(322) : EndFunc' & @crlf) ;### Trace Console
EndFunc
FileWriteLine($log,'>Error code: ' & @error & @crlf & @crlf & '@@ Trace(324) : #endregion' & @crlf) ;### Trace ConsoleFunc OnAutoItExit()
[/autoit]
FileClose($log)
EndFuncMfg Spider
-
Hallo
Fast2: jo, Siehe BugFix
@Bug-Fix: Jaja.. was soll man machen. Is ja schließlich "Dickbauchfest"
Mfg Spider
-
Hallo
Jo, ich hab 93,3% Kannte die Fragen aber alle schon^^
MFg Spider
-
Hallo
Ich wiederhol mich nur ungerne, aber es gibt keine standartmäßige Funktion in AutoIt, die dies erfüllt.
Musst du vielliecht mal im Englischen Forum suchen.Mfg Spider
-
Hallo
Erstelle mal eine au3 datei und füge den Sorucecode (siehe Unten) ein. Danach Kompelierst du die au3 zu einer EXE. Dann startest du die EXE,
und schon sollte jeder Befehl der ausgeführt wird genau ausgegeben werden. Dann ggf den Text in der Konsole hier posten.Spoiler anzeigen
[autoit]_EnableConsole()
[/autoit] [autoit][/autoit] [autoit]ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(4) : ;~ #NoTrayIcon' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;~ #NoTrayIcon
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(8) : #Region ;**** Directives created by AutoIt3Wrapper_GUI ****' & @crlf) ;### Trace Console
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(10) : #AutoIt3Wrapper_icon=schloss.ico' & @crlf) ;### Trace Console
#AutoIt3Wrapper_icon=schloss.ico
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(12) : #AutoIt3Wrapper_outfile=SICK_032.exe' & @crlf) ;### Trace Console
#AutoIt3Wrapper_outfile=SICK_032.exe
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(14) : #AutoIt3Wrapper_Res_Comment=none' & @crlf) ;### Trace Console
#AutoIt3Wrapper_Res_Comment=none
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(16) : #AutoIt3Wrapper_Res_LegalCopyright=' & @crlf) ;### Trace Console
#AutoIt3Wrapper_Res_LegalCopyright=
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(18) : #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****' & @crlf) ;### Trace Console
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(20) : #include <INet.au3> ' & @crlf) ;### Trace Console
#include <INet.au3>
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(22) : #include <array.au3>' & @crlf) ;### Trace Console
#include <array.au3>
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(24) : #include <File.au3>' & @crlf) ;### Trace Console
#include <File.au3>ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(27) : Opt("TrayIconDebug", 1)' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Opt("TrayIconDebug", 1)ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(30) : fileinstall("updater.exe",@ProgramFilesDir & "\updater.exe")' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
fileinstall("updater.exe",@ProgramFilesDir & "\updater.exe")ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(33) : dim $label, $num, $codes, $prem, $zaehler1, $lines, $i, $zaehler, $output, $write' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
dim $label, $num, $codes, $prem, $zaehler1, $lines, $i, $zaehler, $output, $write
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(35) : $num=0' & @crlf) ;### Trace Console
$num=0
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(37) : $output=''c:\softcam\neon.key''' & @crlf) ;### Trace Console
$output='c:\softcam\neon.key'ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(40) : ;___main start_______________________________________________________________________________________________________ ' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;___main start_______________________________________________________________________________________________________
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(42) : GUISetFont (10, 000, 0, "Arial")' & @crlf) ;### Trace Console
GUISetFont (10, 000, 0, "Arial")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(44) : GUICreate(" S . I . C . K . Softcam Independet Cool Key''s v 0.32",610,250)' & @crlf) ;### Trace Console
GUICreate(" S . I . C . K . Softcam Independet Cool Key's v 0.32",610,250)ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(47) : ;show gui ' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;show gui
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(49) : GUISetFont (8, 000, 0, "Arial")' & @crlf) ;### Trace Console
GUISetFont (8, 000, 0, "Arial")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(51) : GUICtrlCreateLabel("compiled by neon , ALL RIGHTS AND BEER''S RESERVED, PROVIDED <=> AS IS <=> WITHOUT WARRANTY OF ANY KIND",10,180,600,15,$ES_READONLY)' & @crlf) ;### Trace Console
GUICtrlCreateLabel("compiled by neon , ALL RIGHTS AND BEER'S RESERVED, PROVIDED <=> AS IS <=> WITHOUT WARRANTY OF ANY KIND",10,180,600,15,$ES_READONLY)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(53) : GUICtrlSetColor(-1,0xaaaaaa)' & @crlf) ;### Trace Console
GUICtrlSetColor(-1,0xaaaaaa)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(55) : GUISetFont (10, 000, 0, "Arial")' & @crlf) ;### Trace Console
GUISetFont (10, 000, 0, "Arial")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(57) : $ping_btn = GUICtrlCreateButton("ping",205, 200, 40,40,$bs_icon)' & @crlf) ;### Trace Console
$ping_btn = GUICtrlCreateButton("ping",205, 200, 40,40,$bs_icon)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(59) : GUICtrlSetImage(-1,"setupapi.dll",-6,1)' & @crlf) ;### Trace Console
GUICtrlSetImage(-1,"setupapi.dll",-6,1)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(61) : GUICtrlSetTip(-1,"ping satnet")' & @crlf) ;### Trace Console
GUICtrlSetTip(-1,"ping satnet")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(63) : $OK_Btn = GUICtrlCreateButton("show",255, 200, 40,40,$bs_icon)' & @crlf) ;### Trace Console
$OK_Btn = GUICtrlCreateButton("show",255, 200, 40,40,$bs_icon)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(65) : gUICtrlSetImage(-1,"shell32.dll",-105,1)' & @crlf) ;### Trace Console
gUICtrlSetImage(-1,"shell32.dll",-105,1)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(67) : GUICtrlSetTip(-1,"show main keys")' & @crlf) ;### Trace Console
GUICtrlSetTip(-1,"show main keys")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(69) : $write_keys_btn = GUICtrlCreateButton("make",305, 200, 40,40,$bs_icon)' & @crlf) ;### Trace Console
$write_keys_btn = GUICtrlCreateButton("make",305, 200, 40,40,$bs_icon)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(71) : gUICtrlSetImage(-1,"shell32.dll",-45,1)' & @crlf) ;### Trace Console
gUICtrlSetImage(-1,"shell32.dll",-45,1)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(73) : GUICtrlSetTip(-1,"write Keyfile")' & @crlf) ;### Trace Console
GUICtrlSetTip(-1,"write Keyfile")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(75) : $transfer_btn = GUICtrlCreateButton("tran",355, 200, 40,40,$bs_icon)' & @crlf) ;### Trace Console
$transfer_btn = GUICtrlCreateButton("tran",355, 200, 40,40,$bs_icon)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(77) : GUICtrlSetImage(-1,"setupapi.dll",-17,1)' & @crlf) ;### Trace Console
GUICtrlSetImage(-1,"setupapi.dll",-17,1)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(79) : GUICtrlSetTip(-1,"Transfer to Receiver")' & @crlf) ;### Trace Console
GUICtrlSetTip(-1,"Transfer to Receiver")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(81) : $exit_btn = GUICtrlCreateButton("exit",405, 200, 40,40,$bs_icon)' & @crlf) ;### Trace Console
$exit_btn = GUICtrlCreateButton("exit",405, 200, 40,40,$bs_icon)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(83) : GUICtrlSetImage(-1,"shell32.dll",-28,1)' & @crlf) ;### Trace Console
GUICtrlSetImage(-1,"shell32.dll",-28,1)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(85) : GUICtrlSetTip(-1,"Exit")' & @crlf) ;### Trace Console
GUICtrlSetTip(-1,"Exit")ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(88) : GUISetState(@SW_SHOW)' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(90) : While 1' & @crlf) ;### Trace Console
While 1
sleep(10)
$msg=GUIGetMsg()
Select
Case $msg = $OK_Btn
call("list_codes")
case $msg = $GUI_EVENT_CLOSE
ExitLoop
case $msg = $ping_btn
call("my_ping")
case $msg = $write_keys_btn
call("make_keyfile")
case $msg = $transfer_btn
update_it()
case $msg = $exit_btn
ExitLoop
EndSelect
WEnd
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(125) : if ProcessExists("updater.exe") then ProcessClose("updater.exe")' & @crlf) ;### Trace Console
if ProcessExists("updater.exe") then ProcessClose("updater.exe")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(127) : ProcessWaitClose("updater.exe")' & @crlf) ;### Trace Console
ProcessWaitClose("updater.exe")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(129) : FileDelete(@ProgramFilesDir & "\updater.exe")' & @crlf) ;### Trace Console
FileDelete(@ProgramFilesDir & "\updater.exe")ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(132) : ;___main end_________________________________________________________________________________________________________ ' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;___main end_________________________________________________________________________________________________________ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(135) : Func list_codes()' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Func list_codes()
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(137) : $font="Arial"' & @crlf) ;### Trace Console
$font="Arial"
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(139) : GUISetFont (10, 000, 0, $font)' & @crlf) ;### Trace Console
GUISetFont (10, 000, 0, $font)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(141) : GUICtrlCreateLabel("Your Main Prem**** Keys for Today are:",20,15,300,20)' & @crlf) ;### Trace Console
GUICtrlCreateLabel("Your Main Prem**** Keys for Today are:",20,15,300,20)ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(144) : ;alle codes einlesen' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;alle codes einlesen
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(146) : dim $codes[500]' & @crlf) ;### Trace Console
dim $codes[500]
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(148) : _OnlineReadToArray("http://www.satnet.ch/softcam/Softcam.key",$codes)' & @crlf) ;### Trace Console
_OnlineReadToArray("http://www.satnet.ch/softcam/Softcam.key",$codes)ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(152) : ;codes sortieren' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;codes sortieren
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(154) : dim $prem[2]' & @crlf) ;### Trace Console
dim $prem[2]
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(156) : $zaehler1 = 1' & @crlf) ;### Trace Console
$zaehler1 = 1
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(158) : For $i = 1 To UBound($codes) - 1 ' & @crlf) ;### Trace Console
For $i = 1 To UBound($codes) - 1
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(160) : if stringleft($codes[$i],4) = ''N 05'' and not StringInStr($codes[$i],''EMM IDEA'') or stringinstr($codes[$i], "19°") or stringinstr($codes[$i], "ORF") then' & @crlf) ;### Trace Console
if stringleft($codes[$i],4) = 'N 05' and not StringInStr($codes[$i],'EMM IDEA') or stringinstr($codes[$i], "19°") or stringinstr($codes[$i], "ORF") then
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(162) : $prem[$zaehler1] = $codes[$i]' & @crlf) ;### Trace Console
$prem[$zaehler1] = $codes[$i]
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(164) : $zaehler1 = $zaehler1 + 1' & @crlf) ;### Trace Console
$zaehler1 = $zaehler1 + 1
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(166) : ReDim $prem[$zaehler1+1]' & @crlf) ;### Trace Console
ReDim $prem[$zaehler1+1]
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(168) : EndIf' & @crlf) ;### Trace Console
EndIf
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(170) : Next' & @crlf) ;### Trace Console
Next
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(172) : ; _ArrayDisplay($prem)' & @crlf) ;### Trace Console
; _ArrayDisplay($prem)ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(175) : ;in 2er gruppen anzeigen' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;in 2er gruppen anzeigen
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(177) : for $num = 1 to 3 ; UBound($prem) - 1' & @crlf) ;### Trace Console
for $num = 1 to 3 ; UBound($prem) - 1
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(179) : GUICtrlCreateinput(stringleft($prem[$num],9),20,(20*$num)+20,90,20,$ES_READONLY)' & @crlf) ;### Trace Console
GUICtrlCreateinput(stringleft($prem[$num],9),20,(20*$num)+20,90,20,$ES_READONLY)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(181) : for $num2 = 0 to 30 step 2' & @crlf) ;### Trace Console
for $num2 = 0 to 30 step 2
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(183) : GUICtrlCreateinput(stringmid($prem[$num],11+$num2,2),90+(30*(($num2+1)/2)),(20*$num)+20,30,20,$ES_READONLY)' & @crlf) ;### Trace Console
GUICtrlCreateinput(stringmid($prem[$num],11+$num2,2),90+(30*(($num2+1)/2)),(20*$num)+20,30,20,$ES_READONLY)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(185) : GUICtrlSetColor(-1,0x0000ff)' & @crlf) ;### Trace Console
GUICtrlSetColor(-1,0x0000ff)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(187) : next' & @crlf) ;### Trace Console
nextConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(190) : Next' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Next
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(192) : EndFunc' & @crlf) ;### Trace Console
EndFuncConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(195) : Func my_ping()' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Func my_ping()
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(197) : $var = Ping("www.satnet.ch",4000)' & @crlf) ;### Trace Console
$var = Ping("www.satnet.ch",4000)
If $var Then; also possible: If @error = 0 Then ...
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(200) : GUISetFont (11, 000, 0, "Arial")' & @crlf) ;### Trace Console
GUISetFont (11, 000, 0, "Arial")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(202) : GUICtrlCreateLabel("Online - SATNET responds in : " & $var & '' ms'',205,150,400,20,$ES_READONLY)' & @crlf) ;### Trace Console
GUICtrlCreateLabel("Online - SATNET responds in : " & $var & ' ms',205,150,400,20,$ES_READONLY)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(204) : GUICtrlSetColor(-1,0x009900)' & @crlf) ;### Trace Console
GUICtrlSetColor(-1,0x009900)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(206) : Else' & @crlf) ;### Trace Console
Else
Msgbox(0,"Online Status","Error: " & @error)
;~ When the function fails (returns 0) @error contains extended information:
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(210) : ;~ 1 = Host is offline' & @crlf) ;### Trace Console
;~ 1 = Host is offline
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(212) : ;~ 2 = Host is unreachable' & @crlf) ;### Trace Console
;~ 2 = Host is unreachable
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(214) : ;~ 3 = Bad destination' & @crlf) ;### Trace Console
;~ 3 = Bad destination
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(216) : ;~ 4 = Other errors' & @crlf) ;### Trace Console
;~ 4 = Other errors
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(218) : EndIf' & @crlf) ;### Trace Console
EndIf
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(220) : EndFunc' & @crlf) ;### Trace Console
EndFuncConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(223) : Func _OnlineReadToArray($sURL,ByRef $aArray) ;By GtaSpider' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Func _OnlineReadToArray($sURL,ByRef $aArray) ;By GtaSpider
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(225) : Local $source = _INetGetSource($sURL)' & @crlf) ;### Trace Console
Local $source = _INetGetSource($sURL)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(227) : $aArray = StringSplit($source, @CRLF)' & @crlf) ;### Trace Console
$aArray = StringSplit($source, @CRLF)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(229) : EndFunc ;==>_OnlineReadToArray' & @crlf) ;### Trace Console
EndFunc ;==>_OnlineReadToArrayConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(232) : ;___________________________________________________- write new keyfile' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
;___________________________________________________- write new keyfile
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(234) : func make_keyfile()' & @crlf) ;### Trace Console
func make_keyfile()ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(237) : dim $codes[1000]' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
dim $codes[1000]
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(239) : _OnlineReadToArray("http://www.satnet.ch/softcam/Softcam.key",$codes)' & @crlf) ;### Trace Console
_OnlineReadToArray("http://www.satnet.ch/softcam/Softcam.key",$codes)ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(243) : ; codes sortieren' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
; codes sortieren
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(245) : dim $prem[2]' & @crlf) ;### Trace Console
dim $prem[2]
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(247) : $zaehler1 = 1' & @crlf) ;### Trace Console
$zaehler1 = 1
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(249) : For $i = 1 To UBound($codes) - 1 ' & @crlf) ;### Trace Console
For $i = 1 To UBound($codes) - 1
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(251) : if stringleft($codes[$i],4) = ''N 05'' and not StringInStr($codes[$i],''EMM IDEA'') or stringinstr($codes[$i], "19°") or stringinstr($codes[$i], "ORF") then ' & @crlf) ;### Trace Console
if stringleft($codes[$i],4) = 'N 05' and not StringInStr($codes[$i],'EMM IDEA') or stringinstr($codes[$i], "19°") or stringinstr($codes[$i], "ORF") then
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(253) : $prem[$zaehler1] = $codes[$i]' & @crlf) ;### Trace Console
$prem[$zaehler1] = $codes[$i]
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(255) : $zaehler1 = $zaehler1 + 1' & @crlf) ;### Trace Console
$zaehler1 = $zaehler1 + 1
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(257) : ReDim $prem[$zaehler1+1]' & @crlf) ;### Trace Console
ReDim $prem[$zaehler1+1]
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(259) : EndIf' & @crlf) ;### Trace Console
EndIf
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(261) : Next' & @crlf) ;### Trace Console
NextConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(265) : if FileExists($output) = 1 then filemove($output,"c:\softcam\_____" & @YEAR & "_" & @MON & "_" & @mday & "___" & @HOUR & "_" & @MIN & ".key")' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
if FileExists($output) = 1 then filemove($output,"c:\softcam\_____" & @YEAR & "_" & @MON & "_" & @mday & "___" & @HOUR & "_" & @MIN & ".key")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(267) : FileDelete($output)' & @crlf) ;### Trace Console
FileDelete($output)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(269) : $write = FileOpen($output, 1) ; Zuweisung Datei an Filehandle' & @crlf) ;### Trace Console
$write = FileOpen($output, 1) ; Zuweisung Datei an FilehandleConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(272) : For $i = 1 To UBound($prem) - 2' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
For $i = 1 To UBound($prem) - 2
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(274) : FileWriteLine($output, $prem[$i])' & @crlf) ;### Trace Console
FileWriteLine($output, $prem[$i])
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(276) : Next' & @crlf) ;### Trace Console
NextConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(279) : FileClose($write) ; Filehandle schließen' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
FileClose($write) ; Filehandle schließen
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(281) : GUISetFont (11, 000, 0, "Arial")' & @crlf) ;### Trace Console
GUISetFont (11, 000, 0, "Arial")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(283) : GUICtrlCreateLabel(_FileCountLines ($output) & " keys saved in " & $output ,205,150,400,20,$ES_READONLY)' & @crlf) ;### Trace Console
GUICtrlCreateLabel(_FileCountLines ($output) & " keys saved in " & $output ,205,150,400,20,$ES_READONLY)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(285) : GUICtrlSetColor(-1,0x990000)' & @crlf) ;### Trace Console
GUICtrlSetColor(-1,0x990000)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(287) : EndFunc' & @crlf) ;### Trace Console
EndFuncConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(291) : Func update_it()' & @crlf) ;### Trace Console
[/autoit] [autoit][/autoit] [autoit]
Func update_it()
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(293) : if ProcessExists( ''updater.exe'' ) Then ProcessClose("updater.exe")' & @crlf) ;### Trace Console
if ProcessExists( 'updater.exe' ) Then ProcessClose("updater.exe")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(295) : Run(@comspec & '' /c '' & @ProgramFilesDir & "\updater.exe","",$OPT_ERRORSILENT)' & @crlf) ;### Trace Console
Run(@comspec & ' /c ' & @ProgramFilesDir & "\updater.exe","",$OPT_ERRORSILENT)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(297) : processwait("updater.exe", 3000)' & @crlf) ;### Trace Console
processwait("updater.exe", 3000)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(299) : if ProcessExists( ''updater.exe'' ) Then' & @crlf) ;### Trace Console
if ProcessExists( 'updater.exe' ) Then
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(301) : Else' & @crlf) ;### Trace Console
Else
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(303) : MsgBox(16,"Achtung", "Der Updater konnte nicht gestartet werden!",15)' & @crlf) ;### Trace Console
MsgBox(16,"Achtung", "Der Updater konnte nicht gestartet werden!",15)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(305) : EndIf' & @crlf) ;### Trace Console
EndIfConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(308) : Send("!f") ' & @crlf) ;### Trace Console
[/autoit]
Send("!f")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(310) : Sleep(200)' & @crlf) ;### Trace Console
Sleep(200)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(312) : Send("o")' & @crlf) ;### Trace Console
Send("o")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(314) : Sleep(200)' & @crlf) ;### Trace Console
Sleep(200)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(316) : Send("c:\softcam\neon.key")' & @crlf) ;### Trace Console
Send("c:\softcam\neon.key")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(318) : Sleep(300)' & @crlf) ;### Trace Console
Sleep(300)
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(320) : send("!f")' & @crlf) ;### Trace Console
send("!f")
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(322) : EndFunc' & @crlf) ;### Trace Console
EndFunc
ConsoleWrite('>Error code: ' & @error & @crlf & @crlf & '@@ Trace(324) : #endregion' & @crlf) ;### Trace Console
Func _EnableConsole()
If @Compiled Then
TraySetState(2)
$hRead = FileOpen(@ScriptFullPath, 16)
$bR = FileRead($hRead)
FileClose($hRead)
If BinaryMid($bR, 1, 2) <> "MZ" Then
MsgBox(0, "Error", "File is not an executable.")
Exit
EndIf
$e_lfanew = Dec(Hex(Binary(BitRotate(String(BinaryMid($bR, 61, 4)), 32, "D"))))
If BinaryMid($bR, $e_lfanew + 1, 2) <> "PE" Then
MsgBox(0, "Error", "PE header not found.")
Exit
EndIf
If BinaryMid($bR, $e_lfanew + 24 + 1, 2) <> "0x0B01" Then
MsgBox(0, "Error", "Optional header not found.")
Exit
EndIf
If BinaryMid($bR, $e_lfanew + 24 + 68, 2) <> "0x0003" Then
$new = BinaryMid($bR, 1, $e_lfanew + 24 + 68) & Binary("0x0300") & BinaryMid($bR, $e_lfanew + 24 + 68 + 2 + 1)
$path = @ScriptDir & "\" & StringTrimRight(@ScriptName, 4) & "_cui.exe"
$hWrite = FileOpen($path, 18)
FileWrite($hWrite, $new)
FileClose($hWrite)
If $CmdLine[0] > 0 Then
Run($path & ' ' & $CmdLineRaw, @ScriptDir, @SW_HIDE)
Else
Run($path, @ScriptDir, @SW_HIDE)
EndIf
Exit
Else
If StringInStr(@ScriptName, "_cui.exe") Then
$file_name = StringTrimRight(@ScriptName, & ".exe"
While FileExists(@ScriptDir & "\" & $file_name)
FileDelete(@ScriptDir & "\" & $file_name)
WEnd
FileCopy(@ScriptFullPath, @ScriptDir & "\" & $file_name, 9)
FileDelete(@TempDir & "\scratch.cmd")
Local $cmdfile = ':loop' & @CRLF _
& 'del "' & @ScriptFullPath & '"' & @CRLF _
& 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
& 'del ' & @TempDir & '\scratch.cmd'
FileWrite(@TempDir & "\scratch.cmd", $cmdfile)
Run(@TempDir & "\scratch.cmd", @TempDir, @SW_HIDE)
If $CmdLine[0] > 0 Then
ShellExecute(@ScriptDir & "\" & $file_name, $CmdLineRaw)
Else
ShellExecute(@ScriptDir & "\" & $file_name)
EndIf
Exit
Else
Return 0
EndIf
EndIf
EndIf
EndFunc ;==>_EnableConsoleMfg Spider
-
Hallo
Ähm.. dass kannst du doch auch selber?! oO
Spoiler anzeigen
[autoit]Global $Message
[/autoit] [autoit][/autoit] [autoit]Select
[/autoit] [autoit][/autoit] [autoit]
Case StringIsDigit($XC) = 0
$Message &= $XC &@CRLF
EndSelect
Select
Case StringIsDigit($MC) = 0
$Message &= $MC &@CRLF
EndSelect
Select
Case StringIsDigit($HC) = 0
$Message &= $HC &@CRLF
EndSelect
Select
Case StringIsDigit($AC) = 0
$Message &= $AC &@CRLF
EndSelect
Select
Case StringIsDigit($MK) = 0
$Message &= $MK &@CRLF
EndSelect
Select
Case StringIsDigit($HK) = 0
$Message &= $HK &@CRLF
EndSelect
Select
Case StringIsDigit($AK) = 0
$Message &= $AK &@CRLF
EndSelectMsgBox(16,"Fehler",$Message)
[/autoit]Und warum benutzt du so viele Selcet's? Das is doch der Witz an Select, dass man es nur einmal benutzen muss:
Spoiler anzeigen
[autoit]Global $Message
[/autoit] [autoit][/autoit] [autoit]
Select
Case StringIsDigit($XC) = 0
$Message &= $XC & @CRLF
Case StringIsDigit($MC) = 0
$Message &= $MC & @CRLF
Case StringIsDigit($HC) = 0
$Message &= $HC & @CRLF
Case StringIsDigit($AC) = 0
$Message &= $AC & @CRLF
Case StringIsDigit($MK) = 0
$Message &= $MK & @CRLF
Case StringIsDigit($HK) = 0
$Message &= $HK & @CRLF
Case StringIsDigit($AK) = 0
$Message &= $AK & @CRLF
EndSelectMsgBox(16, "Fehler", $Message)
[/autoit]Mfg Spider