Überleg doch mal selbst, erklärt sich doch von selbst. Die Variable ist einfach kein Array. Also passt dein Stringbetween nicht oder $body hat einfach einen falschen/keinen Inhalt.
Das wars von mir, wird eh nen Bot
Beiträge von blubbstar
-
-
Dürfte aber ordentlich CPU ziehen wenn du es compilest und startest.
-
Vermutlich die explorer.exe wa Ist aber eine eher mangelhafte Lösung^^
-
Du musst von hinten anfangen die Einträge zu löschen. Löschst du z.B. den 2. Eintrag, bekommt das 3. Element ja Position 2. ;).
Spoiler anzeigen
[autoit]Func _Loeschen()
[/autoit]
$MELCount = _GUICtrlListView_GetItemCount($ListView) - 1
For $i = $MELCount To 0 Step -1
$MELGetText = _GUICtrlListView_GetItemTextArray($ListView, $i)
$MELGetChecked = _GUICtrlListView_GetItemChecked($ListView, $i)
If $MELGetChecked = True Then _GUICtrlListView_DeleteItem($ListView, $i)
Sleep(200)
Next
EndFunc -
Hallo, ist das denn so gewollt mit dem Label? Das geht auch mit GuiCtrlCreateGraphic.
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Description=(c) Pre-Beta-Zeuchs-Scripter seTT
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------AutoIt Version: 3.3.0.0
[/autoit] [autoit][/autoit] [autoit]
Author: seTTScript Function:
[/autoit] [autoit][/autoit] [autoit]
Template AutoIt script.#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>Global $Button1, $Button2
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Test", 608, 490, 184, 125)
;$Pic1 = GUICtrlCreatePic("C:\Users\Robert\Documents\ICQ\556818248\ReceivedFiles\376434353 Ars\gears-of-war.jpg", 0, 30, 625, 441)
GUICtrlCreateGraphic(0, 0, 610, 110, 0)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGraphic(0, 350, 610, 110, 0)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 10)
$Button1 = GuiCtrlCreateButton("Text Text Text", 50, 410, -1, -1)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button2 = GuiCtrlCreateButton("Text2 Text2 Text2", 440, 410, -1, -1)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFFFF)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(0,"","klappt1")
;Shutdown (9)
Case $Button2
MsgBox(0,"","klappt2")
;ProgressOn("Läd...", "Lade")
; For $i = 0 to 101 step 1
; ProgressSet($i,"Lade..")
; Sleep ( 10 )
; Next
;ProgressOff()EndSwitch
[/autoit]
WEnd -
-
-
Für dein Updater, den du bereits im anderen Thread erfragst. Sorry, aber ich bitte dich mal selber etwas zu machen. Du kannst doch nicht ernsthaft erwarten, dass wir dir jede einzelne Zeilen coden? Probier es einfach mal und poste dann deine Ansätze. Dann sehen wir auch, dass du dich bemühst.
-
Du hast ne Ini und nimmst FileReadLine? Nimm IniRead.
Und wenn du solche Probleme hast musst du lernen, es zu lösen. Ich würde mir jetzt erstmal $eingelesenDa ausgeben, weil ich vermute, dass das schon falsch ist. -
[autoit]
Shellexecute("http://www.autoit.de")
[/autoit] -
Dein Code ist ein ziemliches Wirrwarr.
Spoiler anzeigen
[autoit]#include <GuiConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <Misc.au3>$GUI = GUICreate("Zugriff Verweigert!!!", 630, 451, 407, 267)
[/autoit] [autoit][/autoit] [autoit]
$input1 = GUICtrlCreateInput("", 99, 122, 350, 20)
$label2 = GUICtrlCreateLabel("Wenn du nicht MiluBarakus bist solltest du hier schnell verschwinden.", 39, 50, 193, 50)
GUISetBkColor(0xff5001, $GUI)GUISetState()
[/autoit] [autoit][/autoit] [autoit]Sleep(5000)
[/autoit] [autoit][/autoit] [autoit]
While True
If GUICtrlRead($input1) <> "test" Then
MsgBox(4096, "Error", "You typed in the wrong thing - try again!")
Else
ExitLoop
EndIf
Sleep(50)
WEnd; Print the success message
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
MsgBox(4096, "AutoIt Example", "You typed in the correct word! Congrats.")While 1
[/autoit]
$coords = WinGetPos($GUI)
_MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case Else
;;;
EndSwitch
WEnd
_MouseTrap()
Exit -
Ne, ich meine der Server braucht nur @IPAdress1 mit TCPListen, TCPAccept und TCPRecv. TCPConnect brauch er nicht.
Der Client braucht nur TCPConnect und TCPSend, Wenn der Server antworten soll, kannste auch einfach noch Pakete mitnehmen mit TCPRecv und dem Socket von Connect. Da brauchste kein Listen.Ich habs jetzt auch net so im Kopf, aber TCP hat doch Millionen von Beispielen, einfach mal schnell eins überfliegen.
-
Für den Client brauchst die WAN-IP des Servers, also wenn du beides auf deinem Rechner laufen lässt würde auch _GetIP richtig sein. Ansonsten halt mal kurz whatismyip.com mit dem Server aufrufen und diese IP verwenden.
Für den Server brauchst du die LAN-IP des Rechners, auf dem er läuft. Müsste mit @IpAddress1-4 etc. funktionieren._SockettoIP ist für den Server, damit bekommste die WAN-IP des Clients, welcher dir Pakete gesendet hat.
-
[autoit]
Global $installDir = "C:\silent install\Program\", $SoftwareDir = ""
[/autoit]
MsgBox(0, "", 'msiexec /l*v c:\silent.log /qb! /norestart APPLICATIONFOLDER="' & $installDir & "PACKAGE_HOMEROOT=" & $installDir & '" /i ' & $SoftwareDir & '"MicroStation.msi"')Musst halt selber noch bissal rumspielen, weiss ja nicht, wie es passt.
-
[autoit]
RunWait('msiexec /l*v c:\silent.log /qb! /norestart APPLICATIONFOLDER="' & @ProgramFilesDir & $installDir & "PACKAGE_HOMEROOT=" & @ProgramFilesDir & $installDir & '" /i "' & $SoftwareDir & '"MicroStation.msi"')
[/autoit]Aber lass ihn dir erstma ausgeben via MsgBox oder so und schau, dass auch alles stimmt. Weil du hast z.B. @ProgramFilesDir & $installDir, da gehe ich davon aus das ein backslash fehlt.
-
Hm, ob sich dafür ne Ini nicht deutlich besser eignet? Später kannste dann schön Arrays machen und mit Ubound könntest du die "hochgerechnete Zahl" auch ohne Probleme rausfinden.
-
Joa, mein Fehler
Spoiler anzeigen
[autoit]$str = _Encryption("Blubbstar", 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Verschlüsselt", $str)
$str = _Encryption($str, 0)
MsgBox(0, "Entschlüsselt", $str)Func _Encryption($sStr, $sStatus)
[/autoit]
Local $sNewStr
For $i = 1 To StringLen($sStr)
$sAsc = Asc(StringMid($sStr, $i, 1))
If $sStatus = 1 Then
If $sAsc = 122 Or $sAsc = 90 Then $sAsc -= 26
$sNewStr &= Chr($sAsc + 1)
ElseIf $sStatus = 0 Then
If $sAsc = 65 Or $sAsc = 97 Then $sAsc += 26
$sNewStr &= Chr($sAsc - 1)
EndIf
Next
Return $sNewStr
EndFunc ;==>_Encryption -
Du splittest nach ",", dein String hat aber immer ", " mit nem Leerzeichen *g*.
Leichtsinnsfehler, wa -
Spoiler anzeigen
[autoit]$str = _Encrypt("blubbstar")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Verschlüsselt", $str)
$str = _Decrypt($str)
MsgBox(0, "Entschlüsselt", $str)Func _Encrypt($sStr)
[/autoit] [autoit][/autoit] [autoit]
$sStr = StringReplace($sStr, Chr(97), "z")
For $i = 98 to 122
$sStr = StringReplace($sStr, Chr($i), Chr($i-1))
Next
Return $sStr
EndFuncFunc _Decrypt($sStr)
[/autoit]
$sStr = StringReplace($sStr, Chr(122), "a")
For $i = 121 to 97 step -1
$sStr = StringReplace($sStr, Chr($i), Chr($i+1))
Next
Return $sStr
EndFunc -
Spoiler anzeigen
[autoit]#include <winapi.au3>
[/autoit] [autoit][/autoit] [autoit]
Opt("WinTitleMatchMode", 2)$Title = "Mozilla Firefox"
[/autoit] [autoit][/autoit] [autoit]$Pid = WinGetProcess(WinGetTitle($Title))
[/autoit] [autoit][/autoit] [autoit]
$Path = _GetPathByPID($Pid)MsgBox(0, "", $Path)
[/autoit] [autoit][/autoit] [autoit];===============================================================================
[/autoit] [autoit][/autoit] [autoit]
; Function Name: _GetPathByPID($PID=-1)
; Description:: Get full path of an running application by using PID
; Parameter(s): $PID - PID, if not set will used PID from active Window
; Requirement(s): #include <WinAPI.au3>
; Return Value(s): Success Full ApplicationPath
; Failure set @error 1 - process handle failed
; 2 - process image failed
; 3 - query dosdevice failed
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;===============================================================================Func _GetPathByPID($PID=-1)
[/autoit]
If $PID = -1 Then $PID = WinGetProcess(WinGetTitle("[active]"))
$hProcess = _WinAPI_OpenProcess(0x00000400, True, $PID, True)
If Not $hProcess Then Return SetError(1,0,0)
Local $ret, $path, $DevicePath, $DeviceLetter, $strPath = DllStructCreate("char path[256]")
DllCall(@SystemDir & '\Psapi.dll', "uint64", "GetProcessImageFileNameA", _
"hwnd", $hProcess, "ptr", DllStructGetPtr($strPath), "int", 256)
If @error Then Return SetError(2,0,0)
$path = DllStructGetData($strPath, 'path')
$DevicePath = StringRegExp($path, "\\Device\\\w*", 1)
Local $lpTargetPath, $aDrive = DriveGetDrive("ALL")
For $i = 1 To UBound($aDrive) -1
$ret = DllCall("kernel32.dll", "long", "QueryDosDeviceA", "str", $aDrive[$i], "str", $lpTargetPath, "long", 256)
If @error Then Return SetError(3,0,0)
If $ret[2] = $DevicePath[0] Then
$DeviceLetter = $aDrive[$i]
ExitLoop
EndIf
Next
DllCall("kernel32.dll", "long", "CloseHandle", "long", $hProcess)
Return StringReplace($path, $DevicePath[0], StringUpper($DeviceLetter))
EndFunc ;==>_GetPathByPID