Beiträge von Jam00

Jam00

Ich habe da ein Parr Probleme:
Warum wird da das Pic nicht akktualisiert?
Warum wird das Pic nicht mitgezogen,wenn ich das Fenster verschiebe?
Und warum kann ich es nach dem Minimieren nicht wiederherstellen?
THX

Jam00

So

Spoiler anzeigen

[autoit]

$Form1 = GUICreate ("Test - Hauptfenster")
GUISetState (@SW_SHOW, "Test - Hauptfenster")
Global $ExitH, $ExitN, $OpenN, $msg,$Form2

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

$ExitH = GUICtrlCreateButton ("Hauptfenster schließen", 10, 10, 200)
$OpenN = GUICtrlCreateButton ("Nebenfenster öffnen", 10, 40, 200)
$Form2 = GUICreate ("Test - Nebenfenster")
$ExitN = GUICtrlCreateButton ("Nebenfenster schließen", 10, 40, 200)
While 1
$msg = GUIGetMSG (1)
Switch $msg[1]
Case $Form1
Switch $msg[0]
Case $ExitH
Exit
Case $OpenN
GuiSetState (@SW_SHOW, "Test - Nebenfenster")
EndSwitch
Case $Form2
Switch $msg[0]
Case $ExitN
GUISetState (@SW_HIDE,$Form2)
EndSwitch
EndSwitch
WEnd

[/autoit]

Jam00

Ja, aber da währe dann das Problem der verscheiden Windows-Versionen wieder

Jam00

Allo, ich hab mal ne frage
Es gibt doch für den On-Bort Lautsprecher Beep, gibt es das auch irgendwie für die richtigen Lautschprecher? Weil man dann eben keine extra Sound-Datein braucht!
Danke für eure hilfe im voraus, ohne hilfe kommt man doch nit weier

Jam00

Cool, das man sich da auch anmelden kann wusste ich nicht, danke
Die Quellcode sind aber bestimmt nich in autoit^^ und ich kann keine andere sprache

Jam00

naja, um mir einen Account zu machen muss ich ja ICQ runterladen oder hab ich das jetzt falsch im Kopf? Und wenn ich mir QIP runterlade, muss ich mir doch nicht auch noch ICQ runterlden um mir einen Account zu erstllen!

Jam00

Achso, okay!
Kann man sich denn auch per AutoIt einen Benutzer erstellen?

Jam00

Es gibt och auch Chats die dazu Kompaibel sind, aber ein eigenes konto haben! E gibt doch auch chats die zu ganz vielen andere Chats unterstützen! Die haben doch nicht für jeden chat ein eigenes Konto oder?

EDIT:
Ne kein Spam, ich will eben meinen Eigenen Chat schreiben, mir eigenem server, und der soll auch an und von ICQ nachrichten erhalten bzw. schiken!

Jam00

Also das Beispiel auf der seite geht ja, aber wie kann ich es hinbekommen das es ohne ICQ-Konto geht? Also ich muss ja oben daten angeben, wo sich das script dann bei ICQ anmeldet! Wie kann ich das ohne eigenes ICQ Konto machen?

Ich stell es mal hier rein

Spoiler anzeigen

[autoit]

#include "_TocLib.au3"
Global $myUser = "" ; Define these
Global $myPass = "" ; And then run this
Global $targetUser = "" ; to test (IMG:http://www.autoitscript.com/forum/style_em…utoit/smile.gif)

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

Global $doQuit = false

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

;~ $login = _TocLogin( $myUser, $myPass);, "localhost")
;~ if not $login Then
;~ if @error == $TOC_ERROR Then
;~ _DebugPrint( "TOC Error: code " & $login )
;~ Else
;~ _DebugPrint( "_TocLogin @error = " & @error )
;~ EndIf
;~ Else
;~ _DebugPrint( "Logged in successfully" )
;~ EndIf

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

_TocRegisterFunc( $TOC_CMD_IMRECV, "HandleRecv" )
_TocInitLoop()

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

_TocSendIM($targetUser, "This is a test")
_TocSendIM($targetUser, "haha auto response", true)

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

Do
Sleep( 50 ) ; Hang out so the loop can recieve messages
Until $doQuit

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

Func HandleRecv($packet)
_DebugPrint("Recieved message: " & $packet)
$msg = _TocParseIm( $packet )

MsgBox(0,"_TocLib Test", "("&$msg[0]&") said: " & $msg[3], 2)

if StringInStr($msg[3], "good bye") Then $doQuit = true
EndFunc

[/autoit]

Jam00

Also ich hab Kasperky Internet Secruity 2009 darauf, der mekert nicht!

Jam00

Ne, ich hab keine Abneigung, ich bin nur gerad 14 und hab eine 4 in englisch

Jam00

Und das ist hier auch das Falsche unterforum!Du musst es bei Hilfe und Unterstüzung posten! Ist aber nicht schlimm ist mir am anfang auch pasiert^^

Jam00

Ja, wie gesagt, ich wollte einen Chat machen (was du ja wissen solltest) der auch mit ICQ kompatibel ist, weil mich das eben Interesiert, und ich es voll cool fände meinen eigenen Clint zu benutzen anstat ICQ, der Kotzt mich nählich an, hängt sich als auf und so! Es gibt natürlich auch noch andere Cilents dafür aber ich wollte eben gerne selber einen machen! Das ist alles was ich damit machen will!

Jam00

Die fenstergröße ist aber doch immer gleicht oder? Dann kanst die einfach die fensterposition abfragen und dann das + die position im fenster!

Jam00

Kannst du es mir vieleicht per PN schiken?

Jam00

Also interesiert das keinen? Kann ich das dann ohne bedenken machen? Und wenn ja, hat einer eine IDee, wie ich das machen kann? Ich werd mich noch mal damit beschäftigen, aber wenn jemand eine Idee hat! ICh hab keine Ahnung wie ich die Informationen die ich von peethebee per wiki bekommen hab in Autoit einstezen soll

Jam00

Das sieht schon ganz gut aus! Du kannst es ja einfach so machen, das wenn man die Maus 5 min nicht bewegt, das er dann auf Pause macht!

Jam00

Kannst du auch Deutsch schreiben?

Jam00

Probier mal so, und wenn das nicht geht, musst du wohl mal das ganze script posten!

Spoiler anzeigen

[autoit]

HotKeySet ("{b}" , "GUI")
If FileExists ( "C:\config.ini" ) = 1 Then
IniWrite("C:\config.ini", "Variablen", "Belt1leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt2leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt3leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt4leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt5leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt6leer", 0)
Call ("Miner")
Endif

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

Call ("GUI")

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

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

Func GUI()
ExitLoop
#include <GUIConstants.au3>
Global $YesID, $NoID, $ExitID, $msg, $Start

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

GUICreate ("Configuration", 430, 530)
GUISetState (@SW_SHOW)
;GUI Erstellt!
GUICtrlCreateLabel("Bitte Koordinaten Eingeben", 10, 10)
$Start = GUICtrlCreateButton("Übernemen und AM Starten",60,500,150,20)
$YesID = GUICtrlCreateButton("Übernemen", 210, 500, 70, 20)
$NoID = GUICtrlCreateButton("Verwerfen", 280, 500, 70, 20)
$ExitID = GUICtrlCreateButton("Schliessen", 350, 500, 70, 20)

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

;Belt 1 Eingabe
$Var1 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Beltkoordinaten", "Beltx", ""), 80, 50, 50)
GUICtrlCreateLabel ( "Belt X", 10, 54 )

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

$Var2 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Beltkoordinaten", "Belty", ""), 220, 50,50)
GUICtrlCreateLabel ( "Belt Y", 155, 54 )

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

;Overview Eingabe
$Var3 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Overview", "Overviewx", ""), 80, 80, 50)
GUICtrlCreateLabel ( "Overview X", 10, 84 )

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

$Var4 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Overview", "Overviewy", ""), 220, 80,50)
GUICtrlCreateLabel ( "Overview Y", 155, 84 )

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

$Var5 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Overview", "Asteroidx", ""), 80, 110, 50)
GUICtrlCreateLabel ( "Asteroid X", 10, 114 )

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

$Var6 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Overview", "Asteroidy", ""), 220, 110,50)
GUICtrlCreateLabel ( "Asteroid Y", 155, 114 )

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

;Select Eingabe
$Var7 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Selectx", ""), 80, 140, 50)
GUICtrlCreateLabel ( "Select X", 10, 144 )

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

$Var8 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Selecty", ""), 220, 140,50)
GUICtrlCreateLabel ( "Select Y", 155, 144 )

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

$Var9 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Cargox", ""), 80, 170, 50)
GUICtrlCreateLabel ( "Cargo X", 10, 174 )

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

$Var10 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Cargoy", ""), 220, 170,50)
GUICtrlCreateLabel ( "Cargo Y", 155, 174 )

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

$Var11 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Hangarx", ""), 80, 200, 50)
GUICtrlCreateLabel ( "Hanger X", 10, 204 )

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

$Var12 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Hangary", ""), 220, 200,50)
GUICtrlCreateLabel ( "Hanger Y", 155, 204 )
;Color Eingabe
$Var13 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Notizx", ""), 80, 230,50)
GUICtrlCreateLabel ( "Notiz X", 10, 234 )

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

$Var14 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Notizy", ""), 220, 230, 50)
GUICtrlCreateLabel ( "Notiz Y", 155, 234 )

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

$Var15 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Notizcolor", ""), 340, 230,70)
GUICtrlCreateLabel ( "Farbe", 300, 234 )

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

$Var16 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Lockedx", ""), 80, 260,50)
GUICtrlCreateLabel ( "Locked X", 10, 264 )

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

$Var17 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Lockedy", ""), 220, 260, 50)
GUICtrlCreateLabel ( "Locked Y", 155, 264 )

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

$Var18 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Lockedcolor", ""), 340, 260,70)
GUICtrlCreateLabel ( "Farbe", 300, 264 )

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

$Var19 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Minerx", ""), 80, 290,50)
GUICtrlCreateLabel ( "Miner X", 10, 294 )

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

$Var20 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Minery", ""), 220, 290, 50)
GUICtrlCreateLabel ( "Miner Y", 155, 294 )

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

$Var21 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Minercolor", ""), 340, 290,70)
GUICtrlCreateLabel ( "Farbe", 300, 294 )

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

$Var22 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Infox", ""), 80, 320,50)
GUICtrlCreateLabel ( "Info X", 10, 324 )

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

$Var23 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Infoy", ""), 220, 320, 50)
GUICtrlCreateLabel ( "Info Y", 155, 324 )

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

$Var24 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Infocolor", ""), 340, 320,70)
GUICtrlCreateLabel ( "Farbe", 300, 324 )

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

$Var25 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Nutzerx", ""), 80, 350,50)
GUICtrlCreateLabel ( "Nutzer X", 10, 354 )

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

$Var26 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Nutzery", ""), 220, 350, 50)
GUICtrlCreateLabel ( "Nutzer Y", 155, 354 )

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

$Var27 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Undockx", ""), 80, 380,50)
GUICtrlCreateLabel ( "Undock X", 10, 384 )

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

$Var28 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Undocky", ""), 220, 380, 50)
GUICtrlCreateLabel ( "Undock Y", 155, 384 )

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

$Var29 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Characterx", ""), 80, 410,50)
GUICtrlCreateLabel ( "Avatar X", 10, 414 )

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

$Var30 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Charactery", ""), 220, 410, 50)
GUICtrlCreateLabel ( "Avatar Y", 155, 414 )

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

$Var31 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Characterpass", ""), 340, 410,70)
GUICtrlCreateLabel ( "Kennung", 285, 414 )

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

$Var32 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Infox", ""), 80, 440,50)
GUICtrlCreateLabel ( "Link X", 10, 444 )

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

$Var33 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Linky", ""), 220, 440, 50)
GUICtrlCreateLabel ( "Link Y", 155, 444 )

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

$Var34 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Cargoleerx", ""), 80, 470,50)
GUICtrlCreateLabel ( "Cargoleer X", 10, 474 )

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

$Var35 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Cargoleery", ""), 220, 470, 50)
GUICtrlCreateLabel ( "Cargoleer Y", 155, 474 )

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

$Var36 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Cargoleercolor", ""), 340, 470,70)
GUICtrlCreateLabel ( "Farbe", 300, 474 )

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

Do
$msg = GUIGetMsg()

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

Select
Case $msg = $YesID
IniWrite("C:\config.ini", "Beltkoordinaten", "Beltx", GUICtrlRead ($Var1))
IniWrite("C:\config.ini", "Beltkoordinaten", "Belty", GUICtrlRead ($Var2))
IniWrite("C:\config.ini", "Overview", "Overviewx", GUICtrlRead ($Var3))
IniWrite("C:\config.ini", "Overview", "Overviewy", GUICtrlRead ($Var4))
IniWrite("C:\config.ini", "Overview", "Asteroidx", GUICtrlRead ($Var5))
IniWrite("C:\config.ini", "Overview", "Asteroidy", GUICtrlRead ($Var6))
IniWrite("C:\config.ini", "Select", "Selectx", GUICtrlRead ($Var7))
IniWrite("C:\config.ini", "Select", "Selecty", GUICtrlRead ($Var8))
IniWrite("C:\config.ini", "Select", "Cargox", GUICtrlRead ($Var9))
IniWrite("C:\config.ini", "Select", "Cargoy", GUICtrlRead ($Var10))
IniWrite("C:\config.ini", "Select", "Hangarx", GUICtrlRead ($Var11))
IniWrite("C:\config.ini", "Select", "Hangary", GUICtrlRead ($Var12))
IniWrite("C:\config.ini", "Color", "Notizx", GUICtrlRead ($Var13))
IniWrite("C:\config.ini", "Color", "Notizy", GUICtrlRead ($Var14))
IniWrite("C:\config.ini", "Color", "Notizcolor", GUICtrlRead ($Var15))
IniWrite("C:\config.ini", "Color", "Lockedx", GUICtrlRead ($Var16))
IniWrite("C:\config.ini", "Color", "Lockedy", GUICtrlRead ($Var17))
IniWrite("C:\config.ini", "Color", "Lockedcolor", GUICtrlRead ($Var18))
IniWrite("C:\config.ini", "Color", "Minerx", GUICtrlRead ($Var19))
IniWrite("C:\config.ini", "Color", "Minery", GUICtrlRead ($Var20))
IniWrite("C:\config.ini", "Color", "Minercolor", GUICtrlRead ($Var21))
IniWrite("C:\config.ini", "Color", "Infox", GUICtrlRead ($Var22))
IniWrite("C:\config.ini", "Color", "Infoy", GUICtrlRead ($Var23))
IniWrite("C:\config.ini", "Color", "Infocolor", GUICtrlRead ($Var24))
IniWrite("C:\config.ini", "Color", "Nutzerx", GUICtrlRead ($Var25))
IniWrite("C:\config.ini", "Color", "Nutzery", GUICtrlRead ($Var26))
IniWrite("C:\config.ini", "Color", "Undockx", GUICtrlRead ($Var27))
IniWrite("C:\config.ini", "Color", "Undocky", GUICtrlRead ($Var28))
IniWrite("C:\config.ini", "Color", "Characterx", GUICtrlRead ($Var29))
IniWrite("C:\config.ini", "Color", "Charactery", GUICtrlRead ($Var30))
IniWrite("C:\config.ini", "Color", "Characterpass", GUICtrlRead ($Var31))
IniWrite("C:\config.ini", "Color", "Linkx", GUICtrlRead ($Var32))
IniWrite("C:\config.ini", "Color", "Linky", GUICtrlRead ($Var33))
IniWrite("C:\config.ini", "Color", "Cargoleerx", GUICtrlRead ($Var34))
IniWrite("C:\config.ini", "Color", "Cargoleery", GUICtrlRead ($Var35))
IniWrite("C:\config.ini", "Color", "Cargoleercolor", GUICtrlRead ($Var36))
Case $msg = $NoID
GUICtrlSetData ( $Var1, "")
GUICtrlSetData ( $Var2, "")
GUICtrlSetData ( $Var3, "")
GUICtrlSetData ( $Var4, "")
GUICtrlSetData ( $Var5, "")
GUICtrlSetData ( $Var6, "")
GUICtrlSetData ( $Var7, "")
GUICtrlSetData ( $Var8, "")
GUICtrlSetData ( $Var9, "")
GUICtrlSetData ( $Var10, "")
GUICtrlSetData ( $Var11, "")
GUICtrlSetData ( $Var12, "")
GUICtrlSetData ( $Var13, "")
GUICtrlSetData ( $Var14, "")
GUICtrlSetData ( $Var15, "")
GUICtrlSetData ( $Var16, "")
GUICtrlSetData ( $Var17, "")
GUICtrlSetData ( $Var18, "")
GUICtrlSetData ( $Var19, "")
GUICtrlSetData ( $Var20, "")
GUICtrlSetData ( $Var21, "")
GUICtrlSetData ( $Var22, "")
GUICtrlSetData ( $Var23, "")
GUICtrlSetData ( $Var24, "")
GUICtrlSetData ( $Var25, "")
GUICtrlSetData ( $Var26, "")
GUICtrlSetData ( $Var27, "")
GUICtrlSetData ( $Var28, "")
GUICtrlSetData ( $Var29, "")
GUICtrlSetData ( $Var30, "")
GUICtrlSetData ( $Var31, "")
GUICtrlSetData ( $Var32, "")
GUICtrlSetData ( $Var33, "")
GUICtrlSetData ( $Var34, "")
GUICtrlSetData ( $Var35, "")
GUICtrlSetData ( $Var36, "")
Case $msg = $Start
IniWrite("C:\config.ini", "Beltkoordinaten", "Beltx", GUICtrlRead ($Var1))
IniWrite("C:\config.ini", "Beltkoordinaten", "Belty", GUICtrlRead ($Var2))
IniWrite("C:\config.ini", "Overview", "Overviewx", GUICtrlRead ($Var3))
IniWrite("C:\config.ini", "Overview", "Overviewy", GUICtrlRead ($Var4))
IniWrite("C:\config.ini", "Overview", "Asteroidx", GUICtrlRead ($Var5))
IniWrite("C:\config.ini", "Overview", "Asteroidy", GUICtrlRead ($Var6))
IniWrite("C:\config.ini", "Select", "Selectx", GUICtrlRead ($Var7))
IniWrite("C:\config.ini", "Select", "Selecty", GUICtrlRead ($Var8))
IniWrite("C:\config.ini", "Select", "Cargox", GUICtrlRead ($Var9))
IniWrite("C:\config.ini", "Select", "Cargoy", GUICtrlRead ($Var10))
IniWrite("C:\config.ini", "Select", "Hangarx", GUICtrlRead ($Var11))
IniWrite("C:\config.ini", "Select", "Hangary", GUICtrlRead ($Var12))
IniWrite("C:\config.ini", "Color", "Notizx", GUICtrlRead ($Var13))
IniWrite("C:\config.ini", "Color", "Notizy", GUICtrlRead ($Var14))
IniWrite("C:\config.ini", "Color", "Notizcolor", GUICtrlRead ($Var15))
IniWrite("C:\config.ini", "Color", "Lockedx", GUICtrlRead ($Var16))
IniWrite("C:\config.ini", "Color", "Lockedy", GUICtrlRead ($Var17))
IniWrite("C:\config.ini", "Color", "Lockedcolor", GUICtrlRead ($Var18))
IniWrite("C:\config.ini", "Color", "Minerx", GUICtrlRead ($Var19))
IniWrite("C:\config.ini", "Color", "Minery", GUICtrlRead ($Var20))
IniWrite("C:\config.ini", "Color", "Minercolor", GUICtrlRead ($Var21))
IniWrite("C:\config.ini", "Color", "Infox", GUICtrlRead ($Var22))
IniWrite("C:\config.ini", "Color", "Infoy", GUICtrlRead ($Var23))
IniWrite("C:\config.ini", "Color", "Infocolor", GUICtrlRead ($Var24))
IniWrite("C:\config.ini", "Color", "Nutzerx", GUICtrlRead ($Var25))
IniWrite("C:\config.ini", "Color", "Nutzery", GUICtrlRead ($Var26))
IniWrite("C:\config.ini", "Color", "Undockx", GUICtrlRead ($Var27))
IniWrite("C:\config.ini", "Color", "Undocky", GUICtrlRead ($Var28))
IniWrite("C:\config.ini", "Color", "Characterx", GUICtrlRead ($Var29))
IniWrite("C:\config.ini", "Color", "Charactery", GUICtrlRead ($Var30))
IniWrite("C:\config.ini", "Color", "Characterpass", GUICtrlRead ($Var31))
IniWrite("C:\config.ini", "Color", "Linkx", GUICtrlRead ($Var32))
IniWrite("C:\config.ini", "Color", "Linky", GUICtrlRead ($Var33))
IniWrite("C:\config.ini", "Color", "Cargoleerx", GUICtrlRead ($Var34))
IniWrite("C:\config.ini", "Color", "Cargoleery", GUICtrlRead ($Var35))
IniWrite("C:\config.ini", "Color", "Cargoleercolor", GUICtrlRead ($Var36))
GUIDelete()
Call ("Vorlauf")
Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "Schliessen", "Das Konfigurationsprogramm wird beendet")
EndSelect

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

Until $msg = $GUI_EVENT_CLOSE Or $msg = $ExitID

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

EndFunc

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

Func Miner ()

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

If IniRead("C:\config.ini","Variablen","Belt1leer","NichtGefunden") = 1 Then
Call ("Belt2Undock")
EndIf

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

If @HOUR = $Uhr Then
sleep (7200000)
Call ("Vorlauf")
EndIf

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

If PixelGetColor ($Notizx,$Notizy) <> $Notizcolor Then
Call ("Vorlauf")
Endif

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

MouseMove ($Undockx,$Undocky,$Maus1)
Sleep ($Klickpause)
MouseClick ("left")
Sleep ($Undock)
Call ("Belt1Beltwarpen")
EndFunc

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

Func Belt1Beltwarpen ()

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

MouseMove ($Beltx,$Belty,$Maus1)
MouseClick ("right")
MouseMove ($Belt1dx,$Belt1dy,$Maus2)
Sleep ($Pause)
MouseClick ("left")
Sleep ($Warp1)
MouseMove ($Overviewx, $Overviewy, $Maus5)
Sleep ($Klickpause)
Mouseclick ("right")
Sleep ($Pause)
MouseMove ($Overviewdx, $Overviewdy, $Maus1)
Sleep ($Klickpause1)
MouseClick ("left")
Sleep ($Klickpause1)

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

If @HOUR = $Uhr Then
sleep (7200000)
Call ("Vorlauf")
EndIf

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

If PixelGetColor ($Notizx,$Notizy) <> $Notizcolor Then
Call ("Vorlauf")
Endif

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

Call ("Miner")
EndFunc

[/autoit]

Jam00

Und wo ist die Func Gui?

Beiträge von Jam00

Problem mit Pic

MsgBoxes

Beep

Beep

Chat zu ICQ kompatiebel machen

Chat zu ICQ kompatiebel machen

Chat zu ICQ kompatiebel machen

Chat zu ICQ kompatiebel machen

Chat zu ICQ kompatiebel machen

AutoIt ein VIRUS??????

Chat zu ICQ kompatiebel machen

Includes selber Erstellen

Chat zu ICQ kompatiebel machen

Oracle ListBox Installation

Chat zu ICQ kompatiebel machen

Chat zu ICQ kompatiebel machen

Pc Zeit Lister

Adressbuch

Problem mit HotKeySet

Problem mit HotKeySet