Beiträge von PCKing

  • Include Files erstellen?wie?

    mit dem "Func" komando kannst du eigene funktionen erstellen am anfang des scriptes zu den Includes, die benutzt werden noch "#include-once" hinzufügen und dann kannst du auf die funktionen zugreifen, wenn du die datei includierst.
    wenn du das "#include" komando mit "" anstatt mit <> benutzt muss die datei, die du includierst im selben ordner wie das script sein. sonst muss die datei im AutoIt verzeichnis in den ordner Include reingepackt werden

  • Mausbewegungs möglichkeiten? Welche?

    ich hatte mir auch mal sowas gebastelt, da hatte mir auch jemand so ne funktion gebastelt, mir fällt nur leider nicht mehr ein wer es war...
    naja, ich hatte es auch mein POV eingestellt, hier mal der code

    Quellcode
    [autoit]

    #include <GUIConstants.au3>

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

    Global $joy = _JoyInit()
    Global $ControllerNummer = 0 ;wenn nur einer angeschlossen ist isses die 0, sonst testen
    Global $mousespeed = 1 ;erhöhern wenns schneller sein soll

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

    While 1
    $coord = _GetJoy($joy, $ControllerNummer)
    Select
    Case $coord[6] = 27000
    $pos = MouseGetPos()
    MouseMove($pos[0]-$mousespeed,$pos[1])
    Case $coord[6] = 9000
    $pos = MouseGetPos()
    MouseMove($pos[0]+$mousespeed,$pos[1])
    Case $coord[6] = 0
    $pos = MouseGetPos()
    MouseMove($pos[0],$pos[1]-$mousespeed)
    Case $coord[6] = 18000
    $pos = MouseGetPos()
    MouseMove($pos[0],$pos[1]+$mousespeed)
    EndSelect
    WEnd

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

    Func _GetJoy($lpJoy, $iJoy)
    Local $coor, $ret

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

    Dim $coor[8]
    DllCall("Winmm.dll", "int", "joyGetPosEx", _
    "int", $iJoy, _
    "ptr", DllStructGetPtr($lpJoy))

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

    If Not @error Then
    $coor[0] = DllStructGetData($lpJoy, 1, 3);X
    $coor[1] = DllStructGetData($lpJoy, 1, 4);Y
    $coor[2] = DllStructGetData($lpJoy, 1, 5);Z
    $coor[3] = DllStructGetData($lpJoy, 1, 6);R
    $coor[4] = DllStructGetData($lpJoy, 1, 7);U
    $coor[5] = DllStructGetData($lpJoy, 1, 8);V
    $coor[6] = DllStructGetData($lpJoy, 1, 11);POV
    $coor[7] = DllStructGetData($lpJoy, 1, 9);Buttons
    EndIf

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

    Return $coor
    EndFunc ;==>_GetJoy

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

    Func _JoyInit()
    Local $joy
    Global $JOYINFOEX_struct = "dword[13]"

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

    $joy = DllStructCreate($JOYINFOEX_struct)
    If @error Then Return 0
    DllStructSetData($joy, 1, DllStructGetSize($joy), 1);dwSize = sizeof(struct)
    DllStructSetData($joy, 1, 255, 2) ;dwFlags = GetAll
    Return $joy
    EndFunc ;==>_JoyInit

    [/autoit]

    Damit solltest du was anfangen können ^^

  • Mausbewegungs möglichkeiten? Welche?

    2variablen erstellen, 1 für x-achse und 1 für y-achse.
    in ner schleife wird dann überprücht, ob der PadStick nach oben oder unten gedrückt wird, wenn ja dann die variable y-1 (oder y+1) rechnen und mit MouseMove(x,y) die maus dahin bewegen.
    für linke und rechte maustaste dann überprüfen ob der button gedrückt wurde und dann MouseClick("Primary") oder MouseClick("Secondary") ausführen ^^

    autoBert wenn der treiber sowas nicht vorinstalliert hat, dann kann man versuchen es irgendwie anders zu machen, und bei den meissten controllern wird sowas leider nicht unterstützt

  • Webcam Ordner öffnen

    wenn du im ordner von deiner webcam bist kannst du oben auf das menü Extras->Ordneroptionen... klicken, dann in der kategorie "Ansicht" mal ganz runterscrollen und bei "Vollständigen Pfad in Adressleiste anzeigen" und "Vollständigen Pfad in Titelleiste anzeigen" ein häkchen machen und auf ok klicken. dann sollte oben in der titelleiste, wo vorher der ordnername war der pfad zum ordner sein.
    weil "Gemeinsame Dokumente" wird bei mir auch im Arbeitsplatz angezeigt befindet sich aber in "C:\Dokumente und Einstellungen\All Users\Dokumente".

    P.S.: ich würd empfehlen, das programm, womit du die bilder machst anzulassen und mit "ControlClick()" zu arbeiten, wäre für mich persönlich jedenfalls einfacher^^

  • SecurityWin für kurze Büro-Pausen

    ne, da fehlt keine variable, es ist die funktion, hier, da läufts:

    Spoiler anzeigen
    [autoit]

    #include <WindowsConstants.au3>
    #include <WinAPI.au3>
    Global $Button[10]

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

    $gui = GUICreate ("Security", 1366, 768)
    GUISetState (@SW_SHOW)
    GUISetBkColor (1)

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

    $Button[1] = GUICtrlCreateButton ("1", 0, 0, 455, 256)
    $Button[2] = GUICtrlCreateButton ("2", 455, 0, 455, 256)
    $Button[3] = GUICtrlCreateButton ("3", 910, 0, 455, 256)
    $Button[4] = GUICtrlCreateButton ("4", 0, 256, 455, 256)
    $Button[5] = GUICtrlCreateButton ("5", 455, 256, 455, 256)
    $Button[6] = GUICtrlCreateButton ("6", 910, 256, 455, 256)
    $Button[7] = GUICtrlCreateButton ("7", 0, 512, 455, 256)
    $Button[8] = GUICtrlCreateButton ("8", 455, 512, 455, 256)
    $Button[9] = GUICtrlCreateButton ("9", 910, 512, 455, 256)
    $Passwortinput = GUICtrlCreateInput ("", 0, 0, 1, 1)
    $Passwort = 886755

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

    _Transparent ($gui)
    _Passwortgenerator ()

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

    While 1
    $msg = GUIGetMsg ()
    _Zahlen ($msg)
    _block ()

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

    If $msg = -3 Then
    GUICtrlSetData ($Passwortinput, "")
    EndIf

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

    $Auslesen = GUICtrlRead ($Passwortinput)
    If $Auslesen = 989 Then
    _Passwortinfo ($Passwort)
    GUICtrlSetData ($Passwortinput, "")
    EndIf

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

    If $Auslesen = $Passwort Then
    Exit
    EndIf
    Sleep (1000)
    WEnd

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

    Func _Zahlen($msg)
    GUICtrlSetColor ($Passwortinput, 0xFFFFFF)
    For $i=1 To 9 Step 1
    If $msg = $Button[$i] Then
    $a = GUICtrlRead($Passwortinput)
    GUICtrlSetData($Passwortinput, $a & $i)
    EndIf
    Next
    EndFunc

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

    Func _block ()
    BlockInput (1)
    EndFunc

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

    Func _Transparent ($gui)
    WinSetTrans ("", "", 20)
    EndFunc

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

    Func _Passwortinfo ($Passwort)
    MsgBox ( 64, "Passwort", $Passwort, 5)
    EndFunc

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

    Func _Passwortgenerator ()
    $gui2 = GUICreate ("Passwort generieren", 150, 100)
    GUISetState (@SW_SHOW)

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

    $PasswortNeu = GUICtrlCreateInput ("Neues Passwort", 5, 5, 100)
    $PasswortNeu2 = GUICtrlCreateInput ("Neues Passwort bestätigen", 5, 30, 100)
    $OK = GUICtrlCreateButton ("OK", 5, 50, 65, 40)
    $Abbrechen = GUICtrlCreateButton ("Abbrechen", 75, 50, 65, 40)

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

    While 1

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

    $msg = GUIGetMsg ()
    If $msg = -3 Then
    GUISetState (@sw_hide, $gui2)
    WinActivate ($gui)
    EndIf

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

    If $msg = $Abbrechen Then
    GUISetState (@sw_hide, $gui2)
    WinActivate ($gui)
    EndIf

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

    If $msg = $OK Then
    _Auslesen ($PasswortNeu, $PasswortNeu2)
    Sleep (1000)
    GUISetState (@sw_hide, $gui2)
    WinActivate ($gui)
    EndIf

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

    WEnd

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

    EndFunc

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

    Func _Auslesen ($PasswortNeu, $PasswortNeu2);das war der fehler, diese func war in der func daruber
    If $PasswortNeu = $PasswortNeu2 Then
    GUICtrlSetData ($Auslesen, $PasswortNeu)
    Else
    MsgBox (48, "Passwort", "Neues Passwort bestätigen", 5)
    EndIf

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

    EndFunc

    [/autoit]

  • Zip auslesen und verarbeiten

    nein es ist nicht möglich.
    wenn du in ein zip archiv gehst und eine datei direkt anklickst bzw. doppelklick drauf machst dann lädt er sie erst in den Temp-ordner.
    egal ob bild oder text, er entpackt es erst und öffnet die dateien dann immer aus dem temp ordner.
    das kannst du auch testen, mit ner msgbox, die den scriptpfad anzeigt in nen zip archiv einpacken und dann ausführen^^

    und zum packen bzw. entpacken Packen/Entpacken

    //EDIT: mist, zu spät xD du kannst die bilder doch mit FileInstall("...",@TempDir & "....jpg") in die *.exe einbinden

  • seiten wie z0r ?

    r ist eine seite wo ganz viele videos im swf format liegen, die man sich dann angucken kann.
    zum teil sind lustige sachen drinnen und zum teil auch dumme, die videos wurden mal von usern hochgeladen doch jetzt kann man keins mehr hochladen.

  • InetRead und post

    laut hilfe lädt man sich mit InetRead die internetseite herunter.
    um einen post an die seite zu schicken müsstest du aber auf die seite connecten und eher dann den post hochladen.
    wenn die seite über deinen PC läuft könntest du den post downloaden und dann bei der seite einfügen, genaueres fällt mir grad nicht ein.
    korrigiere mich, falls ich falsch liege ;)

  • FTP dateien hochladen und runterladen

    moin moin
    ich habe folgendes problem:
    ich hab nen ftp server und mir ein script gebastelt, womit ich daten richtig hochladen kann und runterladen, aber nur in bestimmte ordner.
    der ordner wird in einem treeview fenster angezeigt und kann auch ausgewählt werden.
    das funktioniert auch, und er connected auch, nur lädt er nichts hoch und runterladen tut es auch nichts.
    hier die func aus dem script:

    download
    [autoit]

    #Include <GuiTreeView.au3>
    #Include <FTPEx.au3>

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

    Global $ip = @IPAddress1, $loginname = "ordner"
    GUICreate("test", 300, 500)
    $scripttree = GUICtrlCreateTreeView(0, 0, 300, 450)
    $scriptfiles = GUICtrlCreateTreeViewItem("scriptfiles", $scripttree)
    $unterordner = GUICtrlCreateTreeViewItem("ordner",$scriptfiles)
    GUICtrlCreateTreeViewItem("testfile1.txt", $unterordner)
    GUICtrlCreateTreeViewItem("testfile2.txt", $unterordner)
    GUICtrlCreateTreeViewItem("testfile3.txt", $unterordner)
    GUICtrlCreateTreeViewItem("testfile0.txt", $scriptfiles)
    $button = GUICtrlCreateButton("Download", 10, 450)
    GUISetState(@SW_SHOW)
    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $button
    $hSelect = _GUICtrlTreeView_GetSelection($scripttree)
    $sSelectText = _GUICtrlTreeView_GetText($scripttree, $hSelect)
    $sParentText = _GUICtrlTreeView_GetText($scripttree, _GUICtrlTreeView_GetParentHandle($scripttree, $hSelect))
    If $sParentText = "filterscripts" Or $sParentText = "scriptfiles" Or $sParentText = "gamemodes" Then
    If _GUICtrlTreeView_GetChildCount($scripttree, $hSelect) = 0 Then
    $open = _FTP_Open("samp")
    $ftpconnect = _FTP_Connect($open, $ip, "xxx", "xxx", 1, 509)
    Sleep(100)
    _FTP_DirSetCurrent($ftpconnect, $loginname & "/" & $sParentText)
    Sleep(100)
    _FTP_ProgressDownload($ftpconnect, @DesktopDir & "/" & $sSelectText, $sSelectText)
    _FTP_Close($open)
    Else
    $open = _FTP_Open("samp")
    $ftpconnect = _FTP_Connect($open, $ip, "xxx", "xxx", 1, 509)
    _FTP_DirSetCurrent($ftpconnect, $loginname & "/" & $sParentText & "/" & $sSelectText)
    DirCreate(@DesktopDir & $sSelectText)
    $list = _Ftp_ListToArray($ftpconnect, 2)
    For $i = 1 To $list[0]
    _FTP_ProgressDownload($ftpconnect, @DesktopDir & "/" & $sSelectText & "/" & $list[$i], $list[$i])
    Next
    _FTP_Close($open)
    EndIf
    Else
    $sParentText2 = _GUICtrlTreeView_GetParentHandle($scripttree, $sParentText)
    $open = _FTP_Open("samp")
    $ftpconnect = _FTP_Connect($open, $ip, "xxx", "xxx", 1, 509)
    _FTP_DirSetCurrent($ftpconnect, $loginname & "/" & $sParentText2 & "/" & $sParentText)
    _FTP_ProgressDownload($ftpconnect, @DesktopDir & "/" & $sSelectText, $sSelectText)
    _FTP_Close($open)
    EndIf
    Case -3
    Exit
    EndSwitch
    WEnd

    [/autoit]
    upload
    [autoit]

    #Include <GuiTreeView.au3>
    #Include <FTPEx.au3>
    #Include <File.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Global $maxordner = 20
    Global $scriptfilesitem[$maxordner][2],$loginname = "testordner",$ip = @IPAddress1

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

    $test = GUICreate("test", 300, 500)
    $scripttree = GUICtrlCreateTreeView(0, 0, 300, 450)
    $scriptfiles = GUICtrlCreateTreeViewItem("scriptfiles", $scripttree)
    $unterordner = GUICtrlCreateTreeViewItem("ordner",$scriptfiles)
    GUICtrlCreateTreeViewItem("testfile1.txt", $unterordner)
    GUICtrlCreateTreeViewItem("testfile2.txt", $unterordner)
    GUICtrlCreateTreeViewItem("testfile3.txt", $unterordner)
    GUICtrlCreateTreeViewItem("testfile0.txt", $scriptfiles)
    $button = GUICtrlCreateButton("Download", 10, 450)
    $menu = GUICtrlCreateContextMenu($button)
    $scriptfilesitem[0][0] = GUICtrlCreateMenuItem("scriptfiles",$menu)
    $scriptfilesitem[0][1] = "scriptfiles"
    GUICtrlCreateMenuItem("",$menu)
    $scriptfilesitem[1][0] = GUICtrlCreateMenuItem("ordner",$menu)
    $scriptfilesitem[1][1] = "ordner"

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

    $auswahlgui = GUICreate("Scriptfile Hochladen", 406, 93)
    GUICtrlSetDefColor(0x000000)
    GUISetBkColor(0xFFFFFF)
    GUICtrlCreateLabel("Bitte wählen sie aus, welches format hochgeladen werden soll", 56, 16, 296, 17)
    $dir = GUICtrlCreateButton("Ordner", 48, 56, 75, 25, $WS_GROUP)
    $data = GUICtrlCreateButton("Datei", 152, 56, 75, 25, $WS_GROUP)
    $cancelauswahl = GUICtrlCreateButton("Abbrechen", 256, 56, 75, 25, $WS_GROUP)

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

    GUISetState(@SW_SHOW,$test)

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

    While 1
    $msg = GUIGetMsg(1)
    For $i = 0 To $maxordner - 1
    Select
    Case $msg[1] = $test
    Switch $msg[0]
    Case $button
    MouseClick("secondary")
    Case -3
    Exit
    Case $scriptfilesitem[$i][0]
    GUISetState(@SW_SHOW, $auswahlgui)
    If $scriptfilesitem[$i][1] <> "scriptfiles" Then
    GUICtrlSetState($dir,$GUI_DISABLE)
    Else
    GUICtrlSetState($dir,$GUI_ENABLE)
    EndIf
    While 1
    $amsg = GUIGetMsg()
    Switch $amsg
    Case $dir
    $auswahl = 1
    $cancel = 0
    GUISetState(@SW_HIDE, $auswahlgui)
    ExitLoop
    Case $data
    $auswahl = 2
    $cancel = 0
    GUISetState(@SW_HIDE, $auswahlgui)
    ExitLoop
    Case $cancelauswahl, -3
    $cancel = 1
    GUISetState(@SW_HIDE, $auswahlgui)
    ExitLoop
    EndSwitch
    WEnd
    If $cancel = 0 And $auswahl = 1 Then
    $updir = FileSelectFolder("Welcher ordner soll hochgeladen werden", @DesktopDir, 7)
    If @error Then $cancel = 1
    $upfile = ""
    ElseIf $cancel = 0 And $auswahl = 2 Then
    $upfile = FileOpenDialog("Welche datei soll hochgeladen werden?", @DesktopDir, "Alle Dateien(*.*)")
    If @error Then $cancel = 1
    $updir = ""
    EndIf
    If $cancel = 0 And $updir <> "" Then
    $split = StringSplit($updir, "/", 1)
    $open = _FTP_Open("samp")
    $ftpconnect = _FTP_Connect($open, $ip, "xxx", "xxx", 1, 509)
    _FTP_DirSetCurrent($ftpconnect, $loginname & "/scriptfiles")
    _FTP_DirCreate($ftpconnect, $split[$split[0]])
    _FTP_DirSetCurrent($ftpconnect, $split[$split[0]])
    $filelist = _FileListToArray($updir)
    For $u = 1 To $filelist[0]
    _FTP_ProgressUpload($ftpconnect, $updir & $filelist[$u], $filelist[$u])
    Next
    _FTP_Close($open)
    MsgBox(0, "Ordner Hochladen", "Der Ordner wurde erfolgreich hochgeladen")
    ElseIf $cancel = 0 And $upfile <> "" Then
    $open = _FTP_Open("samp")
    $ftpconnect = _FTP_Connect($open, $ip, "xxx", "xxx", 1, 509)
    _FTP_DirSetCurrent($ftpconnect, $loginname & "/scriptfiles")
    If $i <> 0 Then _FTP_DirSetCurrent($ftpconnect, $scriptfilesitem[$i][1])
    $split = StringSplit($upfile, "/", 1)
    _FTP_ProgressUpload($ftpconnect, $upfile, $split[$split[0]])
    _FTP_Close($open)
    MsgBox(0, "Datei Hochladen", "Die Datei wurde erfolgreich Hochgeladen")
    EndIf
    EndSwitch
    EndSelect
    Next
    WEnd

    [/autoit]

    mir werden keine errors und auch keine warnings angezeigt
    EDIT: hab mal die gui´s zum script gelegt, sodass mans einfach kopieren kann und testen kann (nur eben beim ftp_connect die logindaten ändern)