Hallo
Bei Zeile 33 hängt er, oder? Falls ja erstezt mal Zeile 32 von run ("C:\Install\Kill.exe RealPopup.exe") durch ProcessClose("RealPopup.exe")
Mfg Spider
Hallo
Bei Zeile 33 hängt er, oder? Falls ja erstezt mal Zeile 32 von run ("C:\Install\Kill.exe RealPopup.exe") durch ProcessClose("RealPopup.exe")
Mfg Spider
Hallo Huggy,
Vielen dank für den Ausführlichen Bugreport Ich werde versuchen so viel wie nur möglich zu Fixen, den Rest wird dann Peethebee machen wenn er wieder da ist!
Mfg Spider
Zitat@GTA:
Nichts da GuiDelete(). eher GuiGrafiti().
Hallo
oO willst du deine Minischildkröte anmalen^^?
Mfg Spider
Hallo
Was für ein Glück, dass es ein Talk Portal gibt
Minischildkröten sind süß^^ Meine Nachbarin hatte auch einmal, aber irgenwann hieß es dann GuiDelete()
Mfg Spider
ZitatOriginal von bernd670
@Gta, bei mir funktioniert auch das!
Hallo
Echt? Bei mir funktioniert das nicht.. Da sieht es tatsächlich so aus als wäre das Icon hinter dem alten.
Mfg Spider
Hallo
Bernd: Ja, die meisten, aber nicht alle funktionieren. Z.B. das hier funktioniert nicht:
[autoit]#include <GUIConstants.au3>
GUICreate("Test", 107, 53, 193, 125, -1, $WS_EX_TOOLWINDOW)
$button = GUICtrlCreateButton("", 8, 8, 91, 36, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 7)
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
If $msg = $button Then
GUICtrlSetImage($button, "shell32.dll",
EndIf
WEnd
Mfg Spider
Hallo
Kastraf hat recht Man kann sein Passwort setzen, und Trozdem automatisch sich anmelden beim Windowsstart ohne das Password einzugeben (so ist es z.B. bei mir). Ich hab noch ein super Script was genau das macht was du willst, aber das hab ich für mich zurecht geschnitten (Mit G15 blocker usw..) Ich kanns dir Villeicht morgen mal etwas umschreiben..
Mfg Spider
Hallo
Bei den Meisten Servern wirst du nach z.B. 30 mins gekickt. Damit dies nicht passiert wird das Script eingesetzt.
Bei WoW wiederum reicht auch ganz einfach
[autoit]While 1
Send("w")
Sleep(10*60000);10 mins
Wend
Dadurch geht er alle 10 Minuten ein schritt nach Vorne.
Mfg Spider
Hallo
Erstelle den Button doch einfach neu! Man sieht es eigentlich garnicht:
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]GUICreate("Test", 107, 53, 193, 125, -1, $WS_EX_TOOLWINDOW)
$button = GUICtrlCreateButton("", 8, 8, 91, 36, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", Random(0,49,1))
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
If $msg = $button Then
GUICtrlDelete($button)
$button = GUICtrlCreateButton("", 8, 8, 91, 36, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", Random(0,49,1))
GUICtrlSetState(-1,$GUI_FOCUS)
EndIf
WEnd
Mfg Spider
Hallo
Meinst du sowas wie BlockInput() ?^^
Mfg Spider
Hallo
Solange du es für nichts illegales benutzt... In Meiner Sig ist ein Programm das heißt "Admin Konsole" Womit du genau das machen kannst.
Mfg Spider
Hallo
Entweder dafür benutzt du StringSplit oder String(Trim)Left:
[autoit]Global $String = "Test|123"
[/autoit][autoit][/autoit][autoit];Möglichkeit 1: Die einfachste, aber auch die längste
[/autoit][autoit][/autoit][autoit]$ss = StringSplit($String,"|")
MsgBox(0,"",$ss[2])
;Möglichkeit 2: Nicht ganz so einfach, aber dafür in einer Zeile
[/autoit][autoit][/autoit][autoit]MsgBox(0,"",StringTrimLeft($String,StringInStr($String,"|")))
[/autoit]Mfg Spider
Hallo
IOM (Install-O-Matic) ist ein Programm von peethebee was nun in der PC Magazin ist. Das Programm installiert Programme automatisch (Unattended Installation) und dies wie ich finde sehr Komfortabel.
Mfg Spider
Hallo
Das Funktioniert mit _StringEncrypt()
Das Passwort wird hier oben bei $EncryPass deklariert:
#include <GuiConstants.au3>
#include <string.au3>
Global $EncryPassw = "Passwort";Warnung: Das Passwort villeicht etwas.. intiligenter auswählen
GuiCreate("Server-Skript", 392, 315,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
GuiCtrlCreateGroup("Liste", 10, 30, 370, 210)
$start = GuiCtrlCreateButton("Starten", 20, 260, 150, 40)
$add = GuiCtrlCreateButton("Server hinzufügen", 180, 260, 150, 20)
$del = GuiCtrlCreateButton("Server entfernen", 180, 280, 150, 20)
$list = GuiCtrlCreateListView("Name | IP/Domain", 20, 50, 340, 175)
$irs = IniReadSection("123.ini","Server")
If Not @error Then
For $i = 0 To $irs[0][0]-1
$read = _StringEncrypt(0,IniRead("123.ini","Server",$i,''),$EncryPassw)
If $read <> '' Then GUICtrlCreateListViewItem($read,$list)
Next
EndIf
GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $start
MsgBox(0,"",GUICtrlRead(GUICtrlRead($list)))
Case $msg = $add
$lvtext = Inputbox("Server hinzufügen","Name des Servers:", "", "", 100, 120) & " | " & InputBox("Server hinzufügen","IP/Domain des Servers:", "", "", 100, 120)
$irs = IniReadSection("123.ini","Server")
If @error Then
Dim $irs[1][1]
$irs[0][0] = 0
EndIf
IniWrite("123.ini","Server",$irs[0][0],_StringEncrypt(1,$lvtext,$EncryPassw))
GUICtrlCreateListViewItem($lvtext, $list)
Case $msg = $del
IniWrite("123.ini","Server",GUICtrlRead($list) - 8,'')
ConsoleWrite(GUICtrlRead($list) - 8 & @CRLF)
GUICtrlDelete(GUICtrlRead($list))
Case Else
;;;
EndSelect
WEnd
Exit
Mfg Spider
Hallo!
Die schnellste möglichkeit würde wiefolgt aussehen:
#include <GuiConstants.au3>
GuiCreate("Server-Skript", 392, 315,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
GuiCtrlCreateGroup("Liste", 10, 30, 370, 210)
$start = GuiCtrlCreateButton("Starten", 20, 260, 150, 40)
$add = GuiCtrlCreateButton("Server hinzufügen", 180, 260, 150, 20)
$del = GuiCtrlCreateButton("Server entfernen", 180, 280, 150, 20)
$list = GuiCtrlCreateListView("Name | IP/Domain", 20, 50, 340, 175)
$irs = IniReadSection("123.ini","Server")
If Not @error Then
For $i = 0 To $irs[0][0]-1
$read = IniRead("123.ini","Server",$i,'')
If $read <> '' Then GUICtrlCreateListViewItem($read,$list)
Next
EndIf
GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $start
MsgBox(0,"",GUICtrlRead(GUICtrlRead($list)))
Case $msg = $add
$lvtext = Inputbox("Server hinzufügen","Name des Servers:", "", "", 100, 120) & " | " & InputBox("Server hinzufügen","IP/Domain des Servers:", "", "", 100, 120)
$irs = IniReadSection("123.ini","Server")
If @error Then
Dim $irs[1][1]
$irs[0][0] = 0
EndIf
IniWrite("123.ini","Server",$irs[0][0],$lvtext)
GUICtrlCreateListViewItem($lvtext, $list)
Case $msg = $del
IniWrite("123.ini","Server",GUICtrlRead($list) - 8,'')
ConsoleWrite(GUICtrlRead($list) - 8 & @CRLF)
GUICtrlDelete(GUICtrlRead($list))
Case Else
;;;
EndSelect
WEnd
Exit
Mfg Spider
Hallo
Der Name gefällt mir
Ja, wie gesagt.. hab mir nicht so viel Mühe mit gemacht, habs innerhalb von 10 minuten erstellt. Es ist mir bewusst das die Funktion nicht perfekt ist
Mfg Spider
Hallo
Die Funktion _GuiCtrlCreatePointrect (Ich weiß nicht wie ich sie sonst nennen sollte^^) erstellt ein Punktierten rahmen, so wie es auch bei z.B. URL Links ist. Die Funktion ist, mal wider..., nicht die wahre Meisterleistung, aber ich finde man brauch sie um ein wirklichen echten Link darzustellen
Hier das Skript:
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$hMaingui = GUICreate("", 40, 35, -1, -1, -1, $WS_EX_TOOLWINDOW)
$lab = GUICtrlCreateLabel("Test", 10, 10, 20, 14)
GUICtrlSetColor(-1, 0x0000cc)
GUICtrlSetFont(-1, Default, Default, 4)
GUICtrlSetCursor(-1, 0)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $lab
_GuiCtrlCreatePointrect(9, 9, 21, 15)
GUICtrlSetColor($lab, 0x551A8B)
RunWait('"' & @ComSpec & '" /c start https://autoit.de/www.google.de', '', @SW_HIDE)
EndSwitch
WEnd
;===============================================================================
;
; Function Name: _GuiCtrlCreatePointrect
; Description:: Erstellt ein Punktierten Rahmen (z.B. für Links)
; Parameter(s): $iLeft, $iTop, $iWidth = 50, $iHeigth = 50, $iStyle = -1: Selbsterklärend, gleicher aufruf wie auch beri GuiCtrlCreateGraphic!
; $iColor = 0: Die Farbe des Rahmens (Standart Schwarz)
; Requirement(s): -
; Return Value(s):Die Control ID
; Author(s): GtaSpider
;
;===============================================================================
;
Func _GuiCtrlCreatePointrect($iLeft, $iTop, $iWidth = 50, $iHeigth = 50, $iStyle = -1,$iColor = 0)
Local $hGraphic, $i = 0, $xy = 0
$hGraphic = GUICtrlCreateGraphic($iLeft, $iTop, $iWidth, $iHeigth, $iStyle)
GUICtrlSetState($hGraphic, $GUI_DISABLE + $GUI_ONTOP)
While 1
$i += 1
Switch $i
Case 1
$x = 0
$xy = 0
Case 2
$x = $iWidth
$xy = 0
Case 3
$y = 0
$xy = 1
Case 4
$y = $iHeigth
$xy = 1
Case Else
ExitLoop
EndSwitch
GUICtrlSetGraphic($hGraphic, $GUI_GR_COLOR, $iColor)
If Not $xy Then
For $y = 0 To $iHeigth Step 2
GUICtrlSetGraphic($hGraphic, $GUI_GR_PIXEL, $x, $y)
Next
Else
For $x = 0 To $iWidth Step 2
GUICtrlSetGraphic($hGraphic, $GUI_GR_PIXEL, $x, $y)
Next
EndIf
WEnd
GUICtrlSetGraphic($hGraphic, $GUI_GR_REFRESH)
Return $hGraphic
EndFunc ;==>_GuiCtrlCreatePointrect
Mfg Spider
Hallo
Doch. Als erstes musst du den Manager starten. Da dann auf "Programmzusammensetzung ändern" klicken und dann auf Online durchsuchen. Da dann auf AutoIt klicken und dann auf "Einbinden" drücken. Dann wird AutoIt downgeloadet, dass dauert ein wenig. Dann drückst du auf "ISO-Image erstellen". Wenn dies fertig ist, ist AutoIt unter dem Tab "Tools". AutoIt auswählen und dann hast du die Aktuelle stabile Version (3.2.4.9) von AutoIt auf deinem PC Nicht erschrecken, dies geht ziemlich schnell, weil er ja keine Benutzereingaben braucht!
Mfg Spider
P.S.: Ich bin sozusagen der Peethebee Ersatz, da er momentan in den Ferien ist. deswegen kümmer ich mich, soweit es mir möglich ist, um den IOM3
Hallo und herzlich :willkommen:
Guck dir mal in der Hilfe FileWrite und FileRead an, bzw IniWrite und IniRead
Wenn du IniWrite bzw FileWrite benutzt, wird die Datei, falls sie noch nicht existiert, erstellt!
Mfg Spider