1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Tyh_Nel

Beiträge von Tyh_Nel

  • Warum zeigt VirusTotal meine .EXE als Virus an

    • Tyh_Nel
    • 22. Dezember 2016 um 17:46

    Hey Leute,

    Ich habe ein Programm für ein Forum geschrieben, dass dich schnell aus Steam (WIKI) ausloggt und dich mit dem Gewählten Account einloggt.
    Also ein sehr einfaches Programm das nur lokal auf den PC agiert.

    Jetzt habe ich das Programm dort veröffentlicht mit einen Link zu dem Virustotal Ergebnis. Da ich mir sicher bin das mein Programm kein Virus ist wollte ich fragen, warum es dort Meldungen gibt?
    Und was kann ich dagegen machen?

    https://www.virustotal.com/de/file/a7affc…c0dbc/analysis/

    MFG

  • Fertig Kompiliertes Script dekompilieren?

    • Tyh_Nel
    • 13. Dezember 2016 um 00:53

    Danke für deine Antwort,

    Zitat von alpines

    ich gehe jetzt von einer Online-Datenbank aus

    Habe vergessen das zu sagen.
    Wollte keine Lokale verwenden da ich ein Root Server besitze und ein paar Game Server & Voice Server drüber laufen lasse.
    Mit MySQL habe ich schon gearbeitet (Mit LUA)

    Zitat von alpines

    Aber ich bezweifle sehr stark das du Software entwickelst die Leute knacken wollen.

    Ja bezweifle ich auch.
    Wollte aber sicher gehen das dort keiner rankommt ohne Probleme.
    Da ich das Programm eigentlich später veröffentlichen möchte.

    Zitat von alpines

    also solltest du dir um die Sachen keine allzugroßen Gedanken machen.

    Gut. Aber ich bin ein bisschen Paranoid. :D
    Ich denke Tägliche BackUps sollten helfen.

    Ich möchte ein Programm schreiben mit einer Login/Register Funktion.
    Wollte das Passwort zwar verschlüsseln und im verschlüsselten Zustand speichern lassen.
    Aber irgendwie vertrau ich dem nicht so ganz.

  • Fertig Kompiliertes Script dekompilieren?

    • Tyh_Nel
    • 12. Dezember 2016 um 23:48

    Hey Leute,

    Wollte mal anfangen mit MySQL und AutoIT zu arbeiten.
    Jetzt habe ich gelesen, dass man eine .EXE Datei wieder zurück in ein Script umschreiben lassen kann.

    Wenn das wirklich geht, dann kommt ja jeder an die Zugangsdaten von der MySQL Datenbank ran.

    Kann man das verhindern?
    Vielleicht sowas wie das Script verschlüsseln oder die Anwendung?

    MFG

  • GUI: Multi Button oder ComboBox Button

    • Tyh_Nel
    • 8. Dezember 2016 um 04:25

    Hey Leute,
    Ich habe schon gesucht aber nichts gefunden,
    vielleicht liegt es daran das ich nicht weiß wie das heißt wonach ich suche.

    Ich habe mich gefragt ob es ein Button, in AutoIt, gibt mit einer, naja Multi Funktion.
    Hier wieder das Problem dass ich nicht weiß wie ich das ding nennen soll.

    Aber ich kann euch ein Beispiel zeigen:
    [Blockierte Grafik: http://www2.pic-upload.de/img/32255073/Unbenannt.png]
    Genau nach so einen Button suche ich.

    Gibt es sowas in AutoIt?
    Wenn ja, wie heißt es? :D

    MFG

  • Programm nicht 2x Starten lassen!

    • Tyh_Nel
    • 5. Dezember 2016 um 01:03

    Danke,
    Funktioniert!
    Besser als vorher

    MFG

  • Programm nicht 2x Starten lassen!

    • Tyh_Nel
    • 5. Dezember 2016 um 00:42

    Hey Leute, ich schon wieder,
    Wollte fragen wie ich verhindern kann das mein Programm/Script 2x gestartet wird.

    Habe das bis jetzt so gelöst:

    AutoIt
    If WinExists("Form1") = 1 Then
        MsgBox(0,"Form1","Form1 bereits geöffnet!")
        Exit
    EndIf

    Lasse das Abfragen vor 'GUISetState(@SW_SHOW)'

    Ich meine es funktioniert aber sobald ein anderes Fenster existiert mit dem selben Namen,
    kommt dann die MsgBox. (Beispiel: Ein Ordner mit dem selben Namen)

    Kennt ihr bessere Lösungen?

    MFG

  • WingetPos bei mehren Monitoren?

    • Tyh_Nel
    • 1. Dezember 2016 um 02:23

    Danke an alle. Ich werde die Änderungen über nehmen.
    Und schon wieder habe ich was gelernt.

    MFG

  • WingetPos bei mehren Monitoren?

    • Tyh_Nel
    • 30. November 2016 um 14:20

    Hey Leute.
    Habe mal wieder eine Frage und wende mich damit mal wieder an euch.
    Um meine Frage spezifisch zu erklären, muss ich ein bisschen weiter ausholen:

    In meinen Skript lasse ich per

    AutoIt
    OnAutoItExitRegister("_SaveStateCheckBoxes")


    mir den Status alle Checkboxen auslesen und auch die Fenster Position ausgeben.
    Dies Speicher ich mir mit:

    AutoIt
    RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Config_Save", "REG_SZ", 1)


    &

    AutoIt
    RegWrite("HKEY_CURRENT_USER\Software\IniStream", "LP_X", "REG_SZ", $size[0])

    So sieht die Funktion komplett aus:

    AutoIt
    Func _SaveStateCheckBoxes()
       If GUICTRLRead($AutoConfigSave) = 1 Then
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Config_Save", "REG_SZ", 1)
       ElseIf GUICTRLRead($AutoConfigSave) = 4 Then
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Config_Save", "REG_SZ", 4)
       EndIf
       If GUICTRLRead($AutoCsGoStart) = 1 Then
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_CSGO_Start", "REG_SZ", 1)
       ElseIf GUICTRLRead($AutoCsGoStart) = 4 Then
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_CSGO_Start", "REG_SZ", 4)
       EndIf
       If GUICTRLRead($AutoSystemTray) = 1 Then
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Sys_Tray", "REG_SZ", 1)
       ElseIf GUICTRLRead($AutoSystemTray) = 4 Then
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Sys_Tray", "REG_SZ", 4)
       EndIf
       If GUICTRLRead($AutoIniLoad) = 1 Then
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Ini_Load", "REG_SZ", 1)
       ElseIf GUICTRLRead($AutoIniLoad) = 4 Then
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Ini_Load", "REG_SZ", 4)
       EndIf
        If GUICTRLRead($StartMainTS) = 1 Then
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_StartMainTS", "REG_SZ", 1)
       ElseIf GUICTRLRead($StartMainTS) = 4 Then
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_StartMainTS", "REG_SZ", 4)
       EndIf
       $size = WinGetPos("IniStream")
    	RegWrite("HKEY_CURRENT_USER\Software\IniStream", "LP_X", "REG_SZ", $size[0])
    	RegWrite("HKEY_CURRENT_USER\Software\IniStream", "LP_Y", "REG_SZ", $size[1])
    EndFunc
    Alles anzeigen


    Am Start lass ich mir das wieder ausgeben und speichere mir das in eine Variable speichern, danach lass ich die Form erstellen.

    AutoIt
    $LP_X=RegRead("HKEY_CURRENT_USER\Software\IniStream", "LP_X")
    $LP_Y=RegRead("HKEY_CURRENT_USER\Software\IniStream", "LP_Y")
    
    
    $IniStream = GUICreate("IniStream", 346, 538, $LP_X, $LP_Y)


    Aber klappt das auch so bei mehren Monitoren?
    Ich kann das leider nicht testen da ich keinen weiteren habe.

    MFG

  • Desktop Verknüpfung erstellen bei allen Benutzern ?

    • Tyh_Nel
    • 23. November 2016 um 20:21
    Zitat von n00b-it

    Hallo,
    du kannst die Verknüpfung z.b. bei Windows 7 in den öffentlichen Desktop legen dann erscheint sie auch bei allen :)


    Gesendet von meinem SM-G920F mit Tapatalk

    ahh Danke,
    das habe ich nicht gewusst.
    Eine ziemlich einfache Lösung, gefällt mir!

    MFG

  • Desktop Verknüpfung erstellen bei allen Benutzern ?

    • Tyh_Nel
    • 23. November 2016 um 19:03

    Hey Leute,
    Die Überschrift sagt es eigentlich schon.

    Aber hier nochmal die lange Version:
    Ich habe ein Installer geschrieben und der funktioniert auch. Sieht und fühlt sich auch an wie ein Installer.
    Am ende will ich den User noch Fragen ob er eine Desktop Verknüpfung erstellen soll und ob er direkt die Anwendung Starten soll.
    So wie man das auch von allen anderen Installern kennt.

    Eine Desktop Verknüpfung erstellen ist ziemlich einfach mit 'CreateShortcut'.
    Aber ich möchte das mein Programm bei allen Benutzern eine Desktop Verknüpfung erstellt.

    Nur weiß ich nicht wie ich das angehen soll. Weil ich nicht weiß wie die User Ordner heißen.
    Natürlich kann ich es auch abfragen lassen aber das sieht richtig lächerlich und auch komisch aus.
    Als könnte der Entwickler nichts. Naja stimmt eigentlich auch :D Aber muss keiner wissen.

    Weiß jemand wie ich das programmieren soll?
    Kennt jemand einen Weg wie ich das angehen soll?

    MFG
    Und danke an alle, ohne euch, und der Hilfe von euch, wäre ich bestimmt nicht soweit! <3:thumbup:

    Vielleicht zeige euch das Script mal, für die erste Programmiersprache die Ich lerne, bin ich ziemlich Stolz auf das was ich da geschafft habe.

  • Ressourcenschonender Programmieren?

    • Tyh_Nel
    • 21. November 2016 um 16:09
    Zitat von alpines

    Du kannst auf den OnEventMode wechseln, dort musst du in einer Schleife nicht die Messages selber handlen sondern weißt jedem Button einfach eine Funktion zu die aufgerufen wird wenn der Button geklickt wird.
    Zuerst brauchst du Opt("GUIOnEventMode", 1) und GUICtrlSetOnEvent($hControlID, "_FunktionDesButtons").
    Für die GUI selber nimmst du einfach GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit") mit der jeweiligen Exit-Funktion.
    Dazu musst du aber dein Script am Leben halten mit einer einfachen While 1 - Sleep(1000) - WEnd Schleife.

    Du solltest außerdem vermeiden Controls neu zu erstellen. Veränder lieber die Farbe und Schriftart und Inhalt und verwendet das selbe Label einfach.

    Das überprüfen des der EXE machst du am besten mit AdlibRegister und AdlibUnregister. Wenn du dort eine Funktion registrierst wird sie alle x Sekunden aufgerufen (dafür darf die Funktion das Script aber nicht unterbrechen, wie z.B. MessageBoxen aber GUI-Labels ändern klappt hervorragend).

    So schaffst du es das dein Script alle x Sekunden nach dem Programm prüft und nur arbeitet wenn entweder geprüft wird oder ein Button geklickt wurde und schwupps ist die CPU-Auslastung wieder auf 0%.

    Habe jetzt alle deine Vorschläge eingebaut!
    So siehts jetzt aus:

    AutoIt: SAVER.au3
    Opt("GUIOnEventMode", 1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_FuncExit")
    
    
    ProcessWait("test.exe")
    
    
    $Label1 = GUICtrlCreateLabel("EXE wurde Gefunden", 40, 24, 212, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x008000)
    
    
    AdlibRegister("_FuncFindEXE",1000)
    
    
    Func _FuncFindEXE()
    	If ProcessExists("test.exe") Then
    
    
    	Else
    		AdlibUnRegister("_FuncFindEXE")
    		MsgBox(0,"Saver","Programm wurde geschlossen!")
    		Exit
    	EndIf
    EndFunc
    
    
    While 1
    	Sleep(1000)
    WEnd
    
    
    Func _FuncExit()
    	$Exit_Q = MsgBox ( 48+4, "SAVER", "Willst du den Auto-Saver wirklich beenden?" & @CRLF & "Wenn du das Programm beendest, wird nichts Automatisch gespeichert!")
    	If $Exit_Q = 6 Then ; JA = SAVE
    		Exit
    	EndIf
    EndFunc
    Alles anzeigen

    So Funktioniert es auch :D
    Danke das Script hat sich auch auf 40 Zeilen reduziert.
    Ich kannte vorher diese Methode nicht.
    Und du hattest recht, der CPU verbrauch hat sich Stark reduziert.

    MFG

  • Ressourcenschonender Programmieren?

    • Tyh_Nel
    • 21. November 2016 um 15:13

    Hey Leute,
    Ich habe ein Script geschrieben das eine .Exe finden soll und dann warten soll bis diese geschlossen wurde.
    Um dann am ende eine bestimmte Funktion auszuführen.

    Meine erste Programm Version hatte keine GUI war daher einfach zu programmieren:

    Also "processwait" dann mit einer While-Schleife abfragen ob dieser "ProcessExists",
    wenn dieser nicht mehr da ist, soll eine bestimmte Funktion ausgeführt werden und dann das Programm beenden.

    Habe ich geschafft und war auch easy.
    Zu diesen Zeitpunkt hat das Programm schon 2-5% CPU gefressen.(Laut TaskManager)
    Mein PC ist nicht der Beste. Intel i5 3550 4x3,3 TurboModus 3,8

    Jetzt in meiner neuen Version wollte ich eine GUI mit einbauen.
    Damit das Programm eine Art 'Log' anzeigt und der User auch weiß was gerade passiert.
    Vor allem war mir wichtig das wenn man auf den X-Button klickt sich auch das Programm beendet.

    Irgendwie & auch ziemlich verwirrend habe ich es geschafft.
    Aber jetzt frisst das Programm bis zu 11% CPU. Das finde ich schon heftig da das Script gerade mal 80 Zeilen hat.(Als Exe fertig kompiliert.)

    Kann man mein Script optimieren?
    Habt ihr Vorschläge?

    MFG

    AutoIt: SAVER.au3
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    
    
    $desktopx=@DesktopWidth
    $desktopy=@DesktopHeight
    $p=0
    $label1=0
    $label2=0
    $label3=0
    $nl=0
    $pp=0
    
    
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("SAVER", 301, 75, $desktopx-301, $desktopy-70-75)
    $Label1 = GUICtrlCreateLabel("Warte auf start von 'TEST.exe'", 40, 24, 212, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    
    
    ;MsgBox(0,"Test", @DesktopWidth & "x" & @DesktopHeight)
    
    
    Func _FuncWaitEXE()
    	If ProcessExists("TEST.exe") Then
    		$p=1
    	Else
    
    
    	EndIf
    EndFunc
    
    
    Func _FuncFindEXE()
    	If $p = 1 Then
    		If $nl = 0 Then
    			GUICtrlDelete($Label1)
    			$Label2 = GUICtrlCreateLabel("'TEST.exe' wurde gefunden", 56, 8, 192, 24)
    			GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    			GUICtrlSetColor(-1, 0x008000)
    			$Label3 = GUICtrlCreateLabel("Warte auf das Schließen der EXE!", 24, 40, 260, 24)
    			GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    			GUICtrlSetColor(-1, 0x008000)
    			$nl = 1
    		Else
    			_FuncWaitCloseEXE()
    		EndIf
    	Else
    
    
    	EndIf
    EndFunc
    
    
    Func _FuncWaitCloseEXE()
    	If ProcessExists("TEST.exe") Then
    
    
    	Else
    		_FuncAusgabe()
    	EndIf
    EndFunc
    
    
    Func _FuncAusgabe()
    		MsgBox(0,"SAVER","Programm wurde geschlossen!")
    		Exit
    EndFunc
    
    
    Func _FuncExit()
    	$Exit_Q = MsgBox ( 48+4, "SAVER", "Willst du den Saver wirklich beenden?" & @CRLF & "Wenn du das Programm beendest, wird nichts Automatisch gespeichert!")
    	If $Exit_Q = 6 Then ; JA = SAVE
    		Exit
    	EndIf
    EndFunc
    
    
    While 1
    	$nMsg = GUIGetMsg()
    	_FuncWaitEXE()
    	_FuncFindEXE()
    	Switch $nMsg
    		Case $GUI_EVENT_CLOSE
    			_FuncExit()
    
    
    	EndSwitch
    WEnd
    Alles anzeigen
  • 'GUICtrlSetState' funktioniert irgendwie nicht!

    • Tyh_Nel
    • 20. November 2016 um 01:08
    Zitat von alpines

    Kann es sein das du die Checkboxen mehrmals erstellst und auf die falschen zugreifst?
    Du hast in der einen Funktion verschiedene If-Abfragen um direkt gleich den Status im GUICtrlCreateCheckbox mitzusetzen aber so sollte man das auf keinen Fall machen.

    Die Checkboxen solltest du mit der GUI mit erstellen und in einer LoadSettings Funktion die Werte setzen - nur so nebenbei.

    Die 24 sollte soweit stimmen, AutoIts internet Handle-Handler zählt einfach nur hoch und das ist dann das 24. Control.

    ähhhm habe den Fehler gefunden habe das hier vergessen:

    #include <StaticConstants.au3>
    ähhhm ja Dummheit tut weh vorallem wenn man in der Öffentlichkeit nach Hilfe fragt :/

    Aber danke für deine hilfe! :thumbup:
    Ich habe dein vorschlag eingebaut und sry das dass so unübersichtlich aussieht, muss mal langsam ein System reinbekommen.

    Danke nochmal!

  • 'GUICtrlSetState' funktioniert irgendwie nicht!

    • Tyh_Nel
    • 20. November 2016 um 00:27

    Der Status der Checkbox ist 4 also unchecked
    Und bei den Variabeln gibt er mir eine 24 aus, keine Ahnung wieso.

    EDIT:
    Habe jetzt versucht mal früher die Checkbox zu ändern also direkt beim erstellen.
    Da passiert leider auch nichts. Diese Fehler mag ich nicht. Diese wo keine Fehler oder Errors angezeigt werden

  • 'GUICtrlSetState' funktioniert irgendwie nicht!

    • Tyh_Nel
    • 20. November 2016 um 00:22
    Zitat von alpines

    Lass dir mal die Handles der Variablen ausgeben, eventuell sind die Variablen schlicht und einfach leer.
    Du nimmst nämlich die Zuweisung in Funktionen vor und daraus werde ich nicht ganz so schlau.

    Ich habe erst danach die Zuweisung in eine Func geschrieben um zu sehen ob es dann klappt oder sich was verändert.
    zuerst standen sie nur so da und nicht in einer func.
    Aber ich werde das kurz ausgeben lassen.

  • 'GUICtrlSetState' funktioniert irgendwie nicht!

    • Tyh_Nel
    • 20. November 2016 um 00:08

    Mein "kleiner" Code macht mir mal wieder Probleme!
    Und zwar lasse ich mir eine Zahl auslesen und lasse dann mit einer If-Abfrage einen bestimmte Checkbox naja checken? (klingt irgendwie falsch )
    Ich konnte mit einer 'MsgBox' herausfinden das der Compiler die If-Abfrage erreicht und auch natürlich mir die MsgBox zeigt. Somit funktioniert ja die If-Abfrage.
    Nur setzt er nicht die richtige Checkbox also er eigentlich keine.
    Da ich nicht weiß was hier falsch läuft gebe ich euch meinen ganzen Code statt ein Schnipsel: (Zeile 351 - 369)

    AutoIt: IniStream.au3
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <WindowsConstants.au3>
    #include <GuiButton.au3>
    #include <WinAPIFiles.au3>
    
    
    While 1
       If WinExists("IniStream") = 1 Then
    	  MsgBox(0,"IniStream","IniStream bereits Gestartet! 'error code: 1x406'")
    	  Exit
       ElseIf WinExists("IniStream") = 0 Then
    	  ExitLoop
       EndIf
    WEnd
    
    
    $Name1 = " "
    $Name2 = " "
    $PL1_Skins_RBTN = 0
    $PL2_Skins_RBTN = 0
    $PL3_Skins_RBTN = 0
    $Default_Skins_RBTN = 0
    $Default_Config_RBTN = 0
    $PL1_Config_RBTN = 0
    $PL2_Config_RBTN = 0
    $PL3_Config_RBTN = 0
    
    
    $default_user = RegRead("HKEY_CURRENT_USER\Software\IniStream", "Default_User")
    
    
    opt("TrayAutoPause",0)
    opt("TrayMenuMode",1)
    
    
    #Region ### START Koda GUI section ### Form=C:\Users\FiNaR\Documents\Projekte\AutoIT\IniStream_v2.1.kxf
    $IniStream = GUICreate("IniStream", 346, 538, 198, 150)
    GUISetIcon("C:\Users\FiNaR\Documents\Projekte\Visual Basic\1476625127_Aquicon-Youtube.ico", -1)
    $StartIniuria = GUICtrlCreateButton("Start Iniuria", 8, 456, 161, 33)
    $Skins = GUICtrlCreateGroup("Skins", 8, 288, 329, 41)
    _FuncSkinsButtons()
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $List1 = GUICtrlCreateList("", 8, 8, 329, 275, -1, 0)
    $Options = GUICtrlCreateGroup("Options",  8, 384, 329, 65)
    $AutoConfigSave = GUICtrlCreateCheckbox("Auto Config Save", 16, 400, 105, 17)
    $AutoCsGoStart = GUICtrlCreateCheckbox("Auto CSGO Start", 16, 424, 97, 17)
    $AutoSystemTray = GUICtrlCreateCheckbox("Auto System Tray",  128, 400, 105, 17)
    $AutoIniuriaLoad = GUICtrlCreateCheckbox("Auto Iniuria Load", 128, 424, 97, 17)
    $StartMainTS = GUICtrlCreateCheckbox("Start Main TS", 248, 400, 81, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $StartSteam = GUICtrlCreateButton("Start Steam", 176, 456, 161, 33)
    $Button1 = GUICtrlCreateButton("Start Teamspeak", 8, 496, 161, 33)
    $Button2 = GUICtrlCreateButton("Settings...", 176, 496, 161, 33)
    $Configs = GUICtrlCreateGroup("Configs", 8, 336, 329, 41)
    _FuncConfigButtons()
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    
    
    ;-------------------------------------------------FUNCS----------------------------------------------------
    
    
    Func _FuncLoadStateCheckBoxes()
       If RegRead("HKEY_CURRENT_USER\Software\IniStream", "Save_Config_Save") = 1 Then
    	  ;MsgBox(0,"IniStream","Checked")
    	  GUICtrlSetState($AutoConfigSave,1)
       ElseIf RegRead("HKEY_CURRENT_USER\Software\IniStream", "Save_Config_Save") = 4 Then
    	  ;MsgBox(0,"IniStream","UnChecked")
    	  GUICtrlSetState($AutoConfigSave,4)
       EndIf
    
    
       If RegRead("HKEY_CURRENT_USER\Software\IniStream", "Save_CSGO_Start") = 1 Then
    	  ;MsgBox(0,"IniStream","Checked")
    	  GUICtrlSetState($AutoCsGoStart,1)
       ElseIf RegRead("HKEY_CURRENT_USER\Software\IniStream", "Save_CSGO_Start") = 4 Then
    	  ;MsgBox(0,"IniStream","UnChecked")
    	  GUICtrlSetState($AutoCsGoStart,4)
       EndIf
    
    
       If RegRead("HKEY_CURRENT_USER\Software\IniStream", "Save_Sys_Tray") = 1 Then
    	  ;MsgBox(0,"IniStream","Checked")
    	  GUICtrlSetState($AutoSystemTray,1)
       ElseIf RegRead("HKEY_CURRENT_USER\Software\IniStream", "Save_Sys_Tray") = 4 Then
    	  ;MsgBox(0,"IniStream","UnChecked")
    	  GUICtrlSetState($AutoSystemTray,4)
       EndIf
    
    
       If RegRead("HKEY_CURRENT_USER\Software\IniStream", "Save_Ini_Load") = 1 Then
    	  ;MsgBox(0,"IniStream","Checked")
    	  GUICtrlSetState($AutoIniuriaLoad,1)
       ElseIf RegRead("HKEY_CURRENT_USER\Software\IniStream", "Save_Ini_Load") = 4 Then
    	  ;MsgBox(0,"IniStream","UnChecked")
    	  GUICtrlSetState($AutoIniuriaLoad,4)
       EndIf
    
    
       If RegRead("HKEY_CURRENT_USER\Software\IniStream", "Save_StartMainTS") = 1 Then
    	  ;MsgBox(0,"IniStream","Checked")
    	  GUICtrlSetState($StartMainTS,1)
       ElseIf RegRead("HKEY_CURRENT_USER\Software\IniStream", "Save_StartMainTS") = 4 Then
    	  ;MsgBox(0,"IniStream","UnChecked")
    	  GUICtrlSetState($StartMainTS,4)
       EndIf
    EndFunc
    
    
    Func _FuncSkinsButtons()
       If IniRead("config.ini","Players","numeric",0) = 1 Then
    	  $Default_Skins_RBTN = GUICtrlCreateRadio("Default", 24, 304, 113, 17)
    	  $PL1_Skins_RBTN = GUICtrlCreateRadio(IniRead("config.ini","Players_Name","player_one",0), 168, 304, 113, 17)
       ElseIf IniRead("config.ini","Players","numeric",0) = 2 Then
    	  $Default_Skins_RBTN = GUICtrlCreateRadio("Default", 24, 304, 73, 17)
    	  $PL1_Skins_RBTN = GUICtrlCreateRadio(IniRead("config.ini","Players_Name","player_one",0), 136, 304, 73, 17)
    	  $PL2_Skins_RBTN = GUICtrlCreateRadio(IniRead("config.ini","Players_Name","player_two",0), 256, 304, 73, 17)
       ElseIf IniRead("config.ini","Players","numeric",0) = 3 Then
    	  $Default_Skins_RBTN = GUICtrlCreateRadio("Default", 16, 304, 73, 17)
    	  $PL1_Skins_RBTN = GUICtrlCreateRadio(IniRead("config.ini","Players_Name","player_one",0), 96, 304, 73, 17)
    	  $PL2_Skins_RBTN = GUICtrlCreateRadio(IniRead("config.ini","Players_Name","player_two",0), 176, 304, 73, 17)
    	  $PL3_Skins_RBTN = GUICtrlCreateRadio(IniRead("config.ini","Players_Name","player_three",0), 256, 304, 73, 17)
       Else
    	  ;MsgBox(0,"IniStream","Etwas hat hier nicht funktioniert!")
       EndIf
    EndFunc
    
    
    Func _FuncConfigButtons()
       If IniRead("config.ini","Players","numeric",0) = 1 Then
    	  $Default_Config_RBTN = GUICtrlCreateRadio("Default", 24, 352, 113, 17)
    	  $PL1_Config_RBTN = GUICtrlCreateRadio(IniRead("config.ini","Players_Name","player_one",0), 168, 352, 113, 17)
       ElseIf IniRead("config.ini","Players","numeric",0) = 2 Then
    	  $Default_Config_RBTN = GUICtrlCreateRadio("Default", 24, 352, 73, 17)
    	  $PL1_Config_RBTN = GUICtrlCreateRadio(IniRead("config.ini","Players_Name","player_one",0), 136, 352, 73, 17)
    	  $PL2_Config_RBTN = GUICtrlCreateRadio(IniRead("config.ini","Players_Name","player_two",0), 256, 352, 73, 17)
       ElseIf IniRead("config.ini","Players","numeric",0) = 3 Then
    	  $Default_Config_RBTN = GUICtrlCreateRadio("Default", 16, 352, 73, 17)
    	  $PL1_Config_RBTN = GUICtrlCreateRadio(IniRead("config.ini","Players_Name","player_one",0), 96, 352, 73, 17)
    	  $PL2_Config_RBTN = GUICtrlCreateRadio(IniRead("config.ini","Players_Name","player_two",0), 176, 352, 73, 17)
    	  $PL3_Config_RBTN = GUICtrlCreateRadio(IniRead("config.ini","Players_Name","player_three",0), 256, 352, 73, 17)
       Else
    	  MsgBox(0,"IniStream","Etwas hat hier nicht funktioniert!")
    	  Exit
       EndIf
    EndFunc
    
    
    Func _SaveStateCheckBoxes()
       If GUICTRLRead($AutoConfigSave) = 1 Then
    	  ;MsgBox(0,"IniStream","Checked")
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Config_Save", "REG_SZ", 1)
       ElseIf GUICTRLRead($AutoConfigSave) = 4 Then
    	  ;MsgBox(0,"IniStream","UnChecked")
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Config_Save", "REG_SZ", 4)
       EndIf
    
    
       If GUICTRLRead($AutoCsGoStart) = 1 Then
    	  ;MsgBox(0,"IniStream","Checked")
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_CSGO_Start", "REG_SZ", 1)
       ElseIf GUICTRLRead($AutoCsGoStart) = 4 Then
    	  ;MsgBox(0,"IniStream","UnChecked")
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_CSGO_Start", "REG_SZ", 4)
       EndIf
    
    
       If GUICTRLRead($AutoSystemTray) = 1 Then
    	  ;MsgBox(0,"IniStream","Checked")
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Sys_Tray", "REG_SZ", 1)
       ElseIf GUICTRLRead($AutoSystemTray) = 4 Then
    	  ;MsgBox(0,"IniStream","UnChecked")
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Sys_Tray", "REG_SZ", 4)
       EndIf
    
    
       If GUICTRLRead($AutoIniuriaLoad) = 1 Then
    	  ;MsgBox(0,"IniStream","Checked")
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Ini_Load", "REG_SZ", 1)
       ElseIf GUICTRLRead($AutoIniuriaLoad) = 4 Then
    	  ;MsgBox(0,"IniStream","UnChecked")
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_Ini_Load", "REG_SZ", 4)
       EndIf
    
    
        If GUICTRLRead($StartMainTS) = 1 Then
    	  ;MsgBox(0,"IniStream","Checked")
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_StartMainTS", "REG_SZ", 1)
       ElseIf GUICTRLRead($StartMainTS) = 4 Then
    	  ;MsgBox(0,"IniStream","UnChecked")
    	  RegWrite("HKEY_CURRENT_USER\Software\IniStream", "Save_StartMainTS", "REG_SZ", 4)
       EndIf
    EndFunc
    
    
    Func _FuncStartSteam()
       If GuiCtrlRead($AutoConfigSave) = 1 Then
    	  If GuiCtrlRead($AutoCsGoStart) = 1 Then
    		 ShellExecute("saveconfig.exe")
    		 ShellExecute("steam://rungameid/730")
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1,"Operation 'Steam' Start!")
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1," ")
    		 _GUICtrlListBox_InsertString($List1,"Auto Config Save Erkannt")
    		 _GUICtrlListBox_InsertString($List1,"Auto CSGO Start Erkannt")
    		 _GUICtrlListBox_InsertString($List1,"Starte Steam & CSGO")
    		 _GUICtrlListBox_InsertString($List1," ")
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1,"Operation 'Steam & CSGO' Erfolgreich!")
    		 _GUICtrlListBox_SetCurSel($List1,_GUICtrlListBox_GetCount($List1) - 1)
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1," ")
    	  ElseIf GuiCtrlRead($AutoCsGoStart) = 4 Then
    		 ShellExecute("saveconfig.exe")
    		 ShellExecute(IniRead("config.ini","Steam","Location",0))
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1,"Operation 'Steam' Start!")
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1," ")
    		 _GUICtrlListBox_InsertString($List1,"Auto Config Save Erkannt")
    		 _GUICtrlListBox_InsertString($List1,"Starte Steam")
    		 _GUICtrlListBox_InsertString($List1," ")
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1,"Operation 'Steam' Erfolgreich!")
    		 _GUICtrlListBox_SetCurSel($List1,_GUICtrlListBox_GetCount($List1) - 1)
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1," ")
    	  EndIf
       ElseIf GuiCtrlRead($AutoConfigSave) = 4 Then
    	   If GuiCtrlRead($AutoCsGoStart) = 1 Then
    		 ShellExecute("steam://rungameid/730")
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1,"Operation 'Steam' Start!")
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1," ")
    		 _GUICtrlListBox_InsertString($List1,"Auto CSGO Start Erkannt")
    		 _GUICtrlListBox_InsertString($List1,"Starte Steam & CSGO")
    		 _GUICtrlListBox_InsertString($List1," ")
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1,"Operation 'Steam & CSGO' Erfolgreich!")
    		 _GUICtrlListBox_SetCurSel($List1,_GUICtrlListBox_GetCount($List1) - 1)
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1," ")
    	  ElseIf GuiCtrlRead($AutoCsGoStart) = 4 Then
    		 ShellExecute(IniRead("config.ini","Steam","Location",0))
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1,"Operation 'Steam' Start!")
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1," ")
    		 _GUICtrlListBox_InsertString($List1,"Starte Steam")
    		 _GUICtrlListBox_InsertString($List1," ")
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1,"Operation 'Steam' Erfolgreich!")
    		 _GUICtrlListBox_SetCurSel($List1,_GUICtrlListBox_GetCount($List1) - 1)
    		 _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    		 _GUICtrlListBox_InsertString($List1," ")
    	  EndIf
    
    
       EndIf
    EndFunc
    
    
    Func _FuncStartIniuria()
    	FileDelete(IniRead("config.ini","Ini_Dir","Location",0) & "\Iniuria CSGO Full Beta\Skins.conf")
    	Sleep(150)
    	FileDelete(IniRead("config.ini","Ini_Dir","Location",0) & "\Iniuria CSGO Full Beta\Config\default.conf")
    	Sleep(100)
    	_FuncSkinCeck()
    	_FuncConfigCheck()
        ShellExecute("E:\AppData\Root\YjxZNqgx.exe")
    	Sleep(100)
    	_GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    	_GUICtrlListBox_InsertString($List1,"Operation wird gestart!")
    	_GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    	_GUICtrlListBox_InsertString($List1," ")
    	_GUICtrlListBox_InsertString($List1,"Alte Skin Config Gelöscht")
    	_GUICtrlListBox_InsertString($List1,"Alte Config Gelöscht")
    	_GUICtrlListBox_InsertString($List1,"'" & $Name1 & "' Skin Config Geladen")
    	_GUICtrlListBox_InsertString($List1,"'" & $Name2 & "' Config Geladen")
    	_GUICtrlListBox_InsertString($List1,"Starte Iniuria")
    	_GUICtrlListBox_InsertString($List1," ")
    	_GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    	_GUICtrlListBox_InsertString($List1,"Operation Erfolgreich!")
    	_GUICtrlListBox_SetCurSel($List1,_GUICtrlListBox_GetCount($List1) - 1)
    	_GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    	_GUICtrlListBox_InsertString($List1," ")
    EndFunc
    
    
    Func _FuncOpenSettings()
       ShellExecute("settings.exe")
       Sleep(500)
       While 1
       If WinExists("IniStream - Settings") = 1 Then
    	  GUISetState(@SW_HIDE,$IniStream)
    	  ContinueLoop
       ElseIf  WinExists("IniStream - Settings") = 0 Then
    	  GUISetState(@SW_SHOW,$IniStream)
    	  ExitLoop
       EndIf
       WEnd
    EndFunc
    
    
    Func _FuncStartTS()
       If GuiCtrlRead($StartMainTS) = 1 Then
    	  ShellExecute(RegRead("HKEY_CURRENT_USER\Software\IniStream", "DefaultTS"))
    	  _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    	  _GUICtrlListBox_InsertString($List1,"                                       Start Main Teamspeak³")
    	  _GUICtrlListBox_SetCurSel($List1,_GUICtrlListBox_GetCount($List1) - 1)
    	  _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    	  _GUICtrlListBox_InsertString($List1," ")
       ElseIf GuiCtrlRead($StartMainTS) = 4 Then
    	  ShellExecute("dialog-ts.exe")
    	  _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    	  _GUICtrlListBox_InsertString($List1,"                                       Starte Dialog-TS")
    	  _GUICtrlListBox_SetCurSel($List1,_GUICtrlListBox_GetCount($List1) - 1)
    	  _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    	  _GUICtrlListBox_InsertString($List1," ")
       EndIf
    EndFunc
    
    
    Func _FuncSkinCeck()
    	If GuiCtrlRead($Default_Skins_RBTN) = 1 Then
    		FileCopy("bin\default\skins\Skins.conf", IniRead("config.ini","Ini_Dir","Location",0) & "\Iniuria CSGO Full Beta\Skins.conf")
    		$Name1 = "Default"
    	ElseIf GuiCtrlRead($PL1_Skins_RBTN) = 1 Then
    		FileCopy("bin\default\skins\Skins.conf", IniRead("config.ini","Ini_Dir","Location",0) & "\Iniuria CSGO Full Beta\Skins.conf")
    		$Name1 = IniRead("config.ini","Players_Name","player_one",0)
    	ElseIf GuiCtrlRead($PL2_Skins_RBTN) = 1 Then
    		FileCopy("bin\default\skins\Skins.conf", IniRead("config.ini","Ini_Dir","Location",0) & "\Iniuria CSGO Full Beta\Skins.conf")
    		$Name1 = IniRead("config.ini","Players_Name","player_two",0)
    	ElseIf GuiCtrlRead($PL3_Skins_RBTN) = 1 Then
    		FileCopy("bin\default\skins\Skins.conf", IniRead("config.ini","Ini_Dir","Location",0) & "\Iniuria CSGO Full Beta\Skins.conf")
    		$Name1 = IniRead("config.ini","Players_Name","player_three",0)
    	Else
    		MsgBox(0,"IniStream", "Es wurde keine SkinConif ausgewählt!")
    	EndIf
    EndFunc
    
    
    Func _FuncConfigCheck()
    	If GuiCtrlRead($Default_Config_RBTN) = 1 Then
    		FileCopy("E:\AppData\USR\configs\default\default.conf","E:\AppData\Root\Iniuria CSGO Full Beta\Config\default.conf")
    		$Name2 = "Default"
    	ElseIf GuiCtrlRead($PL1_Config_RBTN) = 1 Then
    		FileCopy("E:\AppData\USR\configs\ERROX\default.conf","E:\AppData\Root\Iniuria CSGO Full Beta\Config\default.conf")
    		$Name2 = "errox"
    	ElseIf GuiCtrlRead($PL1_Config_RBTN) = 1 Then
    		FileCopy("E:\AppData\USR\configs\FINARY\default.conf","E:\AppData\Root\Iniuria CSGO Full Beta\Config\default.conf")
    		$Name2 = "FiNaRy"
    	ElseIf GuiCtrlRead($PL3_Config_RBTN) = 1 Then
    		FileCopy("E:\AppData\USR\configs\BAKI\default.conf","E:\AppData\Root\Iniuria CSGO Full Beta\Config\default.conf")
    		$Name2 = "Baki"
    	EndIf
    EndFunc
    
    
    ;-----------------------------------------------MAIN-CODE--------------------------------------------------
    
    
    OnAutoItExitRegister("_SaveStateCheckBoxes")
    _FuncLoadStateCheckBoxes()
    _FuncLoadStateRBTN()
    
    
    _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    _GUICtrlListBox_InsertString($List1,"                                       IniStream V3.0 Ready")
    _GUICtrlListBox_SetCurSel($List1,_GUICtrlListBox_GetCount($List1) - 1)
    _GUICtrlListBox_InsertString($List1,"------------------------------------------------------------------------------------------------------------")
    _GUICtrlListBox_InsertString($List1," ")
    
    
    Func _FuncLoadStateRBTN()
    if RegRead("HKEY_CURRENT_USER\Software\IniStream", "Default_User") = 0 Then
       GUICtrlSetState($Default_Skins_RBTN, $GUI_CHECKED)
       GUICtrlSetState($Default_Config_RBTN, $GUI_CHECKED)
    ElseIf RegRead("HKEY_CURRENT_USER\Software\IniStream", "Default_User") = 1 then
       GUICtrlSetState($PL1_Skins_RBTN, $GUI_CHECKED)
       GUICtrlSetState($PL1_Config_RBTN, $GUI_CHECKED)
    ElseIf RegRead("HKEY_CURRENT_USER\Software\IniStream", "Default_User") = 2 then
       GUICtrlSetState($PL2_Skins_RBTN, 2)
       GUICtrlSetState($PL2_Config_RBTN, 2)
       MsgBox(0,"IniStream","ahhh also bis hier hin kommst du also!")
    ElseIf RegRead("HKEY_CURRENT_USER\Software\IniStream", "Default_User") = 3 Then
       GUICtrlSetState($PL3_Skins_RBTN, $GUI_CHECKED)
       GUICtrlSetState($PL3_Config_RBTN, $GUI_CHECKED)
    Else
    	MsgBox(0,"IniStream","Irgendwas hat hier nicht geklappt")
    	Exit
    EndIf
    EndFunc
    
    
    ;------------------------------------------------GUICode---------------------------------------------------
    
    
    While 1
    	$nMsg = GUIGetMsg()
    	Switch $nMsg
    	  Case $GUI_EVENT_CLOSE
    		 Exit
    	  Case $StartSteam
    		 _FuncStartSteam()
    	  Case $StartIniuria
    		 _FuncStartIniuria()
    	  Case $Button2
    		 _FuncOpenSettings()
    	  Case $Button1
    		 _FuncStartTS()
    	EndSwitch
     WEnd
    Alles anzeigen


    [Blockierte Grafik: http://www2.pic-upload.de/img/32149192/Unbenannt2.png]

  • Frage zu: ProcessExists("")

    • Tyh_Nel
    • 21. Oktober 2016 um 22:41

    Ich benutze mit meinen Bruder den gleichen PC. Aber wir nutzen verschiedene Configs mit verschiedene Einstellungen. Dah ich momentan AutoIt lerne, dacht ich mir das ich ein kleines Programm schreibe das mir den austausch der.cfg dateien automatisiert.

    das mit der funktion ProcessExists("") wollte ich nur zum testen und kennenlernen der Funktion benutzen.

    beim start schiebt er die .cfg dateien vom dem jeweiligen nutzer ins richtige verzeichnis damit sie beim start direkt geladen werden. Während dessen fragt er ab ob csgo.exe läuft und fragt im nachhinein, wenn csgo.exe beendet wurde, ob die dateien modifiziert wurden und neu gespeichert werden soll.

    Danke für die Antwort :)
    Mehr wollte ich nicht wissen

  • Frage zu: ProcessExists("")

    • Tyh_Nel
    • 21. Oktober 2016 um 13:10

    Greift ProcessExists("") auf den Prozess zu oder liest er nur die Prozess liste aus und guckt ob er dort auftaucht.

    Ich glaube er liest nur die Prozess Liste aus aber sicher bin ich mir nicht.

    Ich möchte, mit einen Programm, überprüfen ob csgo.exe noch läuft. Aber wenn er wirklich auf den Prozess zugreift riskiere ich ein VAC (Valve Anti Cheat) Bann.

    MFG

  • _GUICtrlListBox_GetCurSel() gibt nur eine ziffer zurück

    • Tyh_Nel
    • 19. Oktober 2016 um 14:27
    Zitat von Tweaky

    _GUICtrlListBox_GetCurSel gibt nur den Index des markierten Eintrags zurück. (Steht in der Hilfe!).
    Mit _GUICtrlListBox_GetText solltest du dann in Verbindung mit dem Index auch den Text (IP-Adresse) herausbekommen.

    Danke, wer lesen kann ist Klar im Vorteil.
    Das wird mir jetzt schmerzlich bewusst.
    Hat geklappt :thumbup:
    MFG

  • _GUICtrlListBox_GetCurSel() gibt nur eine ziffer zurück

    • Tyh_Nel
    • 19. Oktober 2016 um 14:05

    Hey Leute,
    Ich habe mal wieder ein Problem und ich weiß nicht wo der Fehler liegt
    Ich habe mir in einer Ini Datei Teamspeak IP Adresse speichern lassen.
    Dort kann man mehrere IP's speichern lassen.
    Mit einer Funktion wollte ich eine einzige Ip als Default setzen so das der User nicht mehr aus vielen IP's eine auswählen muss sondern das direkt ,wenn die Checkbox aktiv ist,
    die Default Ip ausgelesen wird und direkt connectet.
    Ich lasse mir die IP's in einer Listbox anzeigen, wählt man dort eine an und drückt den button soll er die IP als Default in der ini speichern.
    Diese würde ich mit einen anderen Programm auslesen und direkt connecten lassen mit "shellExecute"
    Aber wenn ich sie speichern lassen will gibt mit "_GUICtrlListBox_GetCurSel()" nur eine einzige Ziffer zurück.


    AutoIt: settings.au3
    Local $aArray = IniReadSection("settings.ini", "Teamspeak")
    For $i = 1 To $aArray[0][0]
       _GUICtrlListBox_InsertString($TeamspeakList,$aArray[$i][1])
    Next
    
    
    Func _SelAsDefTS()
       IniWrite("settings.ini","DefaultTS","default","ts3server://" & _GUICtrlListBox_GetCurSel($TeamspeakList))
       MsgBox(0,"IniStream Settings","Standard Teamspeak wurde auf die IP '" & _GUICtrlListBox_GetCurSel($TeamspeakList) & "' geändert")
    EndFunc
    
    
    Func _FuncAddTS()
       _GUICtrlListBox_InsertString($TeamspeakList,GUICTRLRead($TeamspeakIP))
       IniWrite("settings.ini","Teamspeak",GUICTRLRead($TeamspeakName), GUICTRLRead($TeamspeakIP))
    EndFunc
    Alles anzeigen


    Bild vom Programm:
    [Blockierte Grafik: http://www2.pic-upload.de/img/31933458/Unbenannt.png]

    Kann mir einer helfen?

    MFG :D

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™