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. WhiteLion

Beiträge von WhiteLion

  • png funktion erweitern.

    • WhiteLion
    • 9. Juli 2010 um 13:12
    Zitat von Schrubber

    Zu dem anklickbaren:

    Du gibst deiner PNG eine Variable und rufst sie per Case $Variable auf ;)

    bei mir ruft er alle 20 sek die seite auf, wenn ich versuche es so umzusetzen:

    Spoiler anzeigen
    [autoit]

    ;----- example 3 PNG work araund by Zedna
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #Include <WinAPI.au3>

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

    Global $pngname1, $pngimagename

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

    $hGUI999 = GUICreate("Show PNG", 250, 250)
    GUISetState()

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

    _drawpng($hGUI999, "blankavatar.png", $pngname1, 15, 100)

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

    ; Loop until user exits
    do
    Sleep(20)
    $msg = GUIGetMsg()
    Select
    Case $msg = $pngname1
    ShellExecute("http://www.test.de")
    EndSelect
    until GUIGetMsg() = $GUI_EVENT_CLOSE

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

    Func _drawpng($pnggui,$pngpic, $pngx, $pngimagename, $pngy)
    Local $hGraphic999

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

    ; Load PNG image
    _GDIPlus_StartUp()
    $pngimagename = _GDIPlus_ImageLoadFromFile($pngpic)
    $hGraphic999 = _GDIPlus_GraphicsCreateFromHWND($pnggui)

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

    ; Draw PNG image
    _WinAPI_RedrawWindow($pnggui, 0, 0, $RDW_UPDATENOW)
    _GDIPlus_GraphicsDrawImage($hGraphic999, $pngimagename, $pngx, $pngy)
    _WinAPI_RedrawWindow($pnggui, 0, 0, $RDW_VALIDATE)

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

    ; Clean up resources
    _GDIPlus_GraphicsDispose($hGraphic999)
    _GDIPlus_ImageDispose($pngimagename)
    _GDIPlus_ShutDown()
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit]
  • png funktion erweitern.

    • WhiteLion
    • 9. Juli 2010 um 11:51

    Wie kann ich meine kleine png-anzeigefunktion um folgendes eweitern:
    - tooltip bei mousover
    - anklickbares png (wollte link hinterlegen)
    - stretchbar machen wie bei z.B. jpg GUICtrlCreatePic das ich die größer verändern kann ?

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #Include <WinAPI.au3>

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

    $hGUI999 = GUICreate("Show PNG", 250, 250)
    GUISetState()

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

    _drawpng($hGUI999, "blankavatar.png", 10, 10)

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

    ; Loop until user exits
    do
    until GUIGetMsg() = $GUI_EVENT_CLOSE

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

    Func _drawpng($pnggui,$pngpic, $pngx, $pngy)
    Local $hImage999, $hGraphic999, $hImage999

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

    ; Load PNG image
    _GDIPlus_StartUp()
    $hImage999 = _GDIPlus_ImageLoadFromFile($pngpic)
    $hGraphic999 = _GDIPlus_GraphicsCreateFromHWND($pnggui)

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

    ; Draw PNG image
    _WinAPI_RedrawWindow($pnggui, 0, 0, $RDW_UPDATENOW)
    _GDIPlus_GraphicsDrawImage($hGraphic999, $hImage999, $pngx, $pngy)
    _WinAPI_RedrawWindow($pnggui, 0, 0, $RDW_VALIDATE)

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

    ; Clean up resources
    _GDIPlus_GraphicsDispose($hGraphic999)
    _GDIPlus_ImageDispose($hImage999)
    _GDIPlus_ShutDown()
    EndFunc

    [/autoit]

    Danke für die hilfe :D

  • funktion um einfach ein png zu verwenden.

    • WhiteLion
    • 9. Juli 2010 um 10:25

    ich hab mir mal die beispielfunktion so zurechtgeschnitten, dass ich einfach ein png verwenden kann... evt kanns noch wer gebrauchen:

    Anwendung ist selbsterklärend. -> _drawpng($pnggui,$pngpic, $pngx, $pngy)

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

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #Include <WinAPI.au3>

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

    $hGUI999 = GUICreate("Show PNG", 250, 250)
    GUISetState()

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

    _drawpng($hGUI999, "blankavatar.png", 10, 10)

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

    ; Loop until user exits
    do
    until GUIGetMsg() = $GUI_EVENT_CLOSE

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

    Func _drawpng($pnggui,$pngpic, $pngx, $pngy)
    Local $hImage999, $hGraphic999, $hImage999

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

    ; Load PNG image
    _GDIPlus_StartUp()
    $hImage999 = _GDIPlus_ImageLoadFromFile($pngpic)
    $hGraphic999 = _GDIPlus_GraphicsCreateFromHWND($pnggui)

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

    ; Draw PNG image
    _WinAPI_RedrawWindow($pnggui, 0, 0, $RDW_UPDATENOW)
    _GDIPlus_GraphicsDrawImage($hGraphic999, $hImage999, $pngx, $pngy)
    _WinAPI_RedrawWindow($pnggui, 0, 0, $RDW_VALIDATE)

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

    ; Clean up resources
    _GDIPlus_GraphicsDispose($hGraphic999)
    _GDIPlus_ImageDispose($hImage999)
    _GDIPlus_ShutDown()
    EndFunc

    [/autoit]
  • default scriptdir ist auf einmal gewechselt...

    • WhiteLion
    • 8. Juli 2010 um 22:06

    danke das war promt und sehr hilfreich :)

  • default scriptdir ist auf einmal gewechselt...

    • WhiteLion
    • 8. Juli 2010 um 21:53

    ich verstehe nicht warum nach FileOpenDialog auf einmal mein default scriptdir das verzeichnis ist, ausdem ich mit FileOpenDialog eine datei selectiert habe .... auf jeden fall frage ich mich wie ich wieder zurückwechsel?. das komische ist auch, dass bei abfrage des delfault scriptdir (MsgBox(0,"",@ScriptDir)) der richtige pfad rauskommt !?
    thanx 4 help :D

    das hier ist das script bzw die funktion die es verursacht ...

    [autoit]


    #include <AVIConstants.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>
    #include <File.au3>
    #include <GUIConstants.au3>
    #include <GuiListView.au3>
    #include <GuiImageList.au3>
    #include <Constants.au3>
    #include <inet.au3>
    #include <GuiEdit.au3>
    #include <GuiStatusBar.au3>
    #include <ScrollBarConstants.au3>
    #include <sendmessage.au3>
    #include <string.au3>
    #include <Zip32.au3>

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

    FileInstall("zip32.dll", @ScriptDir & "\zip32.dll")
    FileInstall("unzip32.dll", @ScriptDir & "\unzip32.dll")

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

    Global $destdirectory, $sourcefile, $sourcedirtozip, $destzipname, $timestring
    ;Global $sDate = 0, $sEncrypt = 0, $sSys = 1, $sEmptyFolder = 0, $sExcludeDate = 0, $sIncludeDate = 0, $sJunkDir = 0, $sMove = 0, $sUpdate = 0, $sFresh = 0, $sLatestTime = 0, $sComment = 0, $sPrivilege = 1, $sRecurse = 1, $sLevel = 9

    _StatsSaver()

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

    Func _StatsSaver() ; StatsSaver GUI
    $h10Gui = GUICreate("Stats Saver V1.0", 200, 200, -1, -1, $WS_MINIMIZEBOX)
    $Label61 = GUICtrlCreateLabel("Thanx for idea to ", 40, 70)
    ;GUICtrlCreatePic(@TempDir & "\logo.jpg", 10, 10, 425, 55)
    $QuitStats = GUICtrlCreateButton("X", 179, 0, 15, 15, 0)
    $RestoringStats = GUICtrlCreateButton("Restore Stats", 10, 120, 100, 15, 0)
    $SaveStats = GUICtrlCreateButton("Save Stats", 10, 140, 100, 15, 0)
    ;$input99 = GUICtrlCreateEdit("", 10, 90, 425, 380)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Sleep(20)
    Switch $nMsg
    Case $QuitStats
    GUIDelete($h10Gui)
    ExitLoop
    Case $RestoringStats
    $sourcefile = FileOpenDialog("Select a statsfile (zip archive)", @ScriptDir & "\statsbackup\" , "Stats files (*.zip)")
    _unpack($sourcefile, @ScriptDir & "\players")
    Case $SaveStats
    ;$sourcefile = FileOpenDialog("Select a zip archive", "", "Archive files (*.zip)")
    ;$destdirectory = FileSelectFolder("Output Folder", "", 1)
    ;_unpack($sourcefile, $destdirectory)
    ;$sourcefile = FileOpenDialog("Select a zip archive", "", "Archive files (*.zip)")
    ;$sourcedirtozip = FileSelectFolder("Output Folder", "", 1)
    ;$sourcedirtozip = (@ScriptDir & "\players")
    _checkifstatsbackupexists()
    _createtimestring()
    _pack(@ScriptDir & "\players", @ScriptDir & "\statsbackup\playerstats"&$timestring&".zip")
    EndSwitch
    WEnd
    EndFunc ;==>_tatsSaver

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

    Func _unpack($sourcefile, $destdirectory)
    _UnZip_Init("_UnZIP_PrintFunc", "UnZIP_ReplaceFunc", "_UnZIP_PasswordFunc", "_UnZIP_SendAppMsgFunc", "_UnZIP_ServiceFunc")
    _UnZIP_SetOptions()
    _UnZIP_Unzip($sourcefile, $destdirectory)
    If @error Then
    MsgBox(16, "Error", "Restorings stats and Archive unpacking error")
    Else
    MsgBox(64, "Success", "Restoring stats and archive unpacking successful")
    EndIf
    EndFunc

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

    Func _pack($sourcedirtozip, $destzipname)
    _Zip_Init("_ZIPPrint", "_ZIPPassword", "_ZIPComment", "_ZIPProgress")
    If @error Then
    MsgBox(16, "Error", "Zip32.dll did not initialize")
    Exit
    EndIf
    ; Global $sDate = 0, $sEncrypt = 0, $sSys = 1, $sEmptyFolder = 0, $sExcludeDate = 0, $sIncludeDate = 0, $sJunkDir = 0, $sMove = 0, $sUpdate = 0,
    ; $sFresh = 0, $sLatestTime = 0, $sComment = 0, $sPrivilege = 1, $sRecurse = 1, $sLevel = 9

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

    _ZIP_SetOptions(0,0,1,0,0,0,1)
    If @error Then
    MsgBox(16, "Error", "Options sets error")
    Exit
    EndIf

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

    _ZIP_Archive($destzipname, $sourcedirtozip)
    If @error Then
    MsgBox(16, "Error", "Saving stats and archive creating error")
    Else
    MsgBox(64, "Success", "Saving stats and archive creating successful")
    EndIf
    EndFunc

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

    Func _checkifstatsbackupexists()
    if DirGetSize(@ScriptDir & "\statsbackup") = -1 then DirCreate(@ScriptDir & "\statsbackup")
    EndFunc

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

    Func _createtimestring()
    Global $timestring = ("__date_"&@MON&"_"&@MDAY&"_"&@YEAR&"__time_"&@HOUR&"_"&@MIN&"_"&@SEC)
    EndFunc

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

    ;==========================# ZIP Dll-callback functions #======================================
    Func _ZIPPrint($sFile, $sPos)
    ConsoleWrite("!> _ZIPPrint: " & $sFile & @LF)
    EndFunc

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

    Func _ZIPPassword($sPWD, $sX, $sS2, $sName)
    Local $iPass = InputBox("Archive encrypting set", "Enter the password", "", "", 300, 120)

    If $iPass = "" Then Return 1

    Local $PassBuff = DllStructCreate("char[256]", $sPWD)
    DllStructSetData($PassBuff, 1, $iPass)
    EndFunc

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

    Func _ZIPComment($sComment)
    Local $iComment = InputBox("Archive comment set", "Enter the comment", "", "", 300, 120)
    If $iComment = "" Then Return 1

    Local $CommentBuff = DllStructCreate("char[256]", $sComment)
    DllStructSetData($CommentBuff, 1, $iComment)
    EndFunc

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

    ;~ Func _ZIPProgress($sName, $sSize)
    ;~ ;Return 1 for abort the zip!
    ;~ $CurZipSize += Number($sSize)
    ;~ Local $iPercent = Round(($CurZipSize / $UnCompSize * 100))
    ;~ GUICtrlSetData($progress, $iPercent)
    ;~ GUICtrlSetData($edit, $sName & @CRLF, 1)
    ;~
    ;~ ConsoleWrite("!> Name: " & $sName & @LF)
    ;~ EndFunc

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

    ;==========================# UnZIP Dll-callback functions #========================================
    Func _UnZIP_PrintFunc($sName, $sPos)
    ConsoleWrite("---> _UnZIP_PrintFunc: " & $sName & @LF)
    EndFunc

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

    Func UnZIP_ReplaceFunc($sReplace)
    If MsgBox(4 + 32, "Overwrite", "File " & $sReplace & " is exists." & @LF & "Do you want to overwrite all file?") = 6 Then
    Return $IDM_REPLACE_ALL
    Else
    Return $IDM_REPLACE_NONE
    EndIf
    EndFunc

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

    Func _UnZIP_PasswordFunc($sPWD, $sX, $sS2, $sName)
    ConsoleWrite("!> UnZIP_PasswordFunc: " & $sPWD & @LF)

    Local $iPass = InputBox("Password require", "Enter the password for decrypt", "", "", 300, 120)
    If $iPass = "" Then Return 1

    Local $PassBuff = DllStructCreate("char[256]", $sPWD)
    DllStructSetData($PassBuff, 1, $iPass)
    EndFunc

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

    Func _UnZIP_SendAppMsgFunc($sUcsize, $sCsize, $sCfactor, $sMo, $Dy, $sYr, $sHh, $sMm, $sC, $sFname, $sMeth, $sCRC, $fCrypt)
    ;ConsoleWrite("!> _UnZIP_SendAppMsgFunc: " & $sUcsize & @LF)
    EndFunc

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

    ;~ Func _UnZIP_ServiceFunc($sName, $sSize)
    ;~ ;Return 1 for abort the unzip!
    ;~ GUICtrlSetData($edit, $sName & @CRLF, 1)
    ;~
    ;~ ConsoleWrite("!> Size: " & $sSize & @LF & _
    ;~ "!> FileName" & $sName & @LF)
    ;~ EndFunc

    [/autoit]

    Dateien

    zip32.zip 127,18 kB – 222 Downloads
  • Hilfe! ControlSend verursacht lags!

    • WhiteLion
    • 5. Juli 2010 um 20:59
    Zitat von AutoBert

    Klingt nach Spiele-BOT, dies widerspricht den Forenregeln. :cursing:

    MoD bitte closen

    danke (Auto)Bert


    alles wo "spiel" steht hat nicht gleich was mit bot zu tun!
    auch wenn du mir letztes mal sehr geholfen hast, ich verstehe nicht wie man aus 1-2 begriffen so sehr pauschalisieren kann :(


    EDIT: leder lagt es immer noch, wobei ich die controlsend funktion aus der schleifen nehmen konnte.
    ich musst feststellen, das _SendMessage ebenfalls hälftig für das problem verabtwortlich ist. falls noch jemand eine idee hat...

    PS: jedem der von bot redet kann ich gerne per PN einen link zum tool schicken!

  • Hilfe! ControlSend verursacht lags!

    • WhiteLion
    • 5. Juli 2010 um 16:54
    Zitat von volle

    dann darfst du vllt nichts nebenbei spielen^^
    und musst mit den systemlaggs leben^^

    und es meldet sich noch jemand mit einer lösung ;D

    hmmm, inhaltlich nicht sehr hilfreich. :thumbdown:
    nur handelt es sich um einen gameserver, da liegt es in der natur der sache. und die software bezieht sich, auf das steuern der konsole aus dem spiel heraus per hotkeys....

  • Hilfe! ControlSend verursacht lags!

    • WhiteLion
    • 5. Juli 2010 um 16:41

    hallo, ich schreibe gereade ein tool was befehle an eine console schickt. das ganze findet so statt:
    ControlSend("Console", "", "[CLASSNN:Edit1]", $randomstatus &"{Enter}")
    jetzt verursacht dieser befehl ein system lag von ca. 1-2 sekunden, was wenn ich z.B. was nebenbei spiele in einem
    shooter total nervig ist, zumal ich das alle 30 sekunden einsetze ...
    ich habe folgende dinge verssucht die nicht oder nur tw gingen:

    1.

    [autoit]

    _GUICtrlEdit_AppendText(ControlGetHandle("Console", "", "[CLASSNN:Edit1]"), $randomstatus & @CRLF)

    [/autoit]

    ^^ die entertaste wird einfach nicht automatisch gedrückt. ich hab auch nicht geprüft ob die lags dann noch da sind!

    2. ich habe eine funktion /UDF names ssend gefunden, auch hier scheint der druck auf enter nicht zu gehen.

    3. 

    [autoit]

    ControlSend("Console", "", "[CLASSNN:Edit1]", $randomstatus &"{Enter}")

    [/autoit]

    ^^ geht perfect aber laggt!

    ich bin mal wieder mit den nerven am ende! :(

  • datei aufsplitten, aber wie ?

    • WhiteLion
    • 5. Juli 2010 um 10:59

    danke jetzt hab ichs :D

  • datei aufsplitten, aber wie ?

    • WhiteLion
    • 4. Juli 2010 um 23:14

    klasse das script scheint zu funktionieren, dennoch habe ich ein problem dessen ursache ich nicht finde.

    also ich lasse mit einer kleinen funktion die differenz von einem logfile auslesen was ständig wächst....
    und zwar nachdem ich was in eine console geschrieben hatte um so die ausgabe im difference.log habe um
    diese zu analysieren. - das klappt auch wenn der server das logfile recht langsam beschreibt, sobald ich aber
    massives ansteigen des schreibens in das logfile verzeiche, dann hängt sich bei anwendung
    meiner funktion das log kompett auf ...also die originale server.log - datei lässt sich dann sogar manuell mit dem editor
    nicht mehr öffnen. - stimmt was mit meiner funktion nicht ?

    (mit massivem schreiben meine ich, dass das log um ca. 0,5 MB pro minute wächst.)

    EDIT: ich habe herausgefunden das der fehler in meiner (dieser) Funktion liegen muss, allerdings habe ich keine ahnung wieso
    auf jeden fall freezt sie die zweite datei aus der die differenz extrahiert wird .... auch bei kopien von dem log. wo ist mein fehler ?

    [autoit]


    _copydifference(server.log, copyolderofserverlog.log, difference.log)

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

    Func _copydifference($sourcefile1, $sourcefile2, $differencefile)
    FileDelete($difference)
    $sourcefileOut = FileOpen($differencefile, 18)
    $oldsize = FileGetSize($sourcefile1)
    ;MsgBox(0,"alte größe",$oldsize)

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

    FileSetPos($sourcefile1, $oldsize, $FILE_BEGIN)

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

    $newsize = FileGetSize($sourcefile2)
    ;MsgBox(0,"neue größe",$newsize)

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

    $difference = $newsize-$oldsize
    ;MsgBox(0,"unterschied",$difference)

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

    $newfile = FileOpen($sourcefile2, 16) ; 16 = binärmode
    FileSetPos($newfile, $oldsize, 0)

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

    While 1
    $bData = FileRead($newfile, 10240)
    If @error Then ExitLoop
    FileWrite($sourcefileOut, $bData)
    WEnd

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

    FileClose($sourcefileOut)
    FileClose($sourcefile1)
    FileClose($sourcefile2)

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

    EndFunc

    [/autoit]
  • wie lang darf die URL von inetget sein?

    • WhiteLion
    • 2. Juli 2010 um 21:03

    verstehe :D danke :D

  • wie lang darf die URL von inetget sein?

    • WhiteLion
    • 2. Juli 2010 um 20:54
    Zitat von Ineluki

    Abe da brauchst du doch keine 2034 Zeichen, oder? 8|

    doooooch... es sind halt parameter die ich so übermittel ... die länge reicht auch aus, aber in einem fall leider nicht :(

  • wie lang darf die URL von inetget sein?

    • WhiteLion
    • 2. Juli 2010 um 20:51
    Zitat von Ineluki

    Wozu brauchst du den überhaupt eine 2034 Zeichen lange Url? 8|


    einfach mal meinen ersten post lesen ;)

    ich sende mit meinem tool parameter an meinen server.

  • wie lang darf die URL von inetget sein?

    • WhiteLion
    • 2. Juli 2010 um 20:44
    Zitat von SEuBo


    Ja und nein.
    Nicht umsonst benötigt InetGet mindestens den Internet Explorer 3. Ich denke aber es wird nicht der IE selbst, sondern bestimmte Dll's benötigt werden.


    Aber mal im Ernst? Wer braucht eine 2048 Zeichen lange URL? Genau für so nen Schmarn gibts POST-Befehle....


    Ich brauche sie, solange ich nichts anderes an befehlen kenne... was wären denn bitte die "POST-Befehle" mit denen ich meine infos an den server schicke bzw eine alternative zu inetget ?

  • datei aufsplitten, aber wie ?

    • WhiteLion
    • 2. Juli 2010 um 20:37

    okey, anegegugut und mal folgendes zusammengepfuscht:

    [autoit]

    #include <Constants.au3>

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

    $hFile = "test.txt"

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

    FileWriteLine($hFile, "Line1")
    FileWriteLine($hFile, "Line2")
    FileWriteLine($hFile, "Line3")

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

    $oldsize = FileGetSize($hFile)
    MsgBox(0,"alte größe",$oldsize)

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

    FileSetPos($hFile, $oldsize, $FILE_BEGIN)

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

    FileWriteLine($hFile, "vvvvvvvvLine4")
    FileWriteLine($hFile, "vvvvvvvvLine5")

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

    $newsize = FileGetSize($hFile)
    MsgBox(0,"neue größe",$newsize)

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

    $difference = $newsize-$oldsize
    MsgBox(0,"unterschied",$difference)

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

    FileDelete($hFile)

    [/autoit]

    na ja, die differenz die ich haben wollte bekomme ich ja nun raus ....
    allerdings frage ich mich, mit welchem befehl ich genau die differenz
    auslesen kann .... ich habe keinen befehl gefunden bei dem ich ab byte x lesen kann :(

    EDIT: ich weise nochmal draufhin, dass ich hier nur beispielhaft eine text-datei erstellen lassen.
    ich brauche also einen befehle mit dem ich ab byte x lesen lassen kann, auch wenn es eine
    binärdatei ist.

  • wie lang darf die URL von inetget sein?

    • WhiteLion
    • 2. Juli 2010 um 15:07

    freunde von mir und meine weigkeit nutzen erfolgreich inetget um per URL parameter zum meinem server zu senden. (mit meinem autoit tool) das sieht dann beispielhaft so aus:
    inetget("http://www.meinserver.de/?parameter1=bla1&parameter2=bla2, "antwort.ini", 4,1)
    allerdings habe ich gelesen, dass verschiedenen browser unterschiedliche URL längen zulassen. der internetexplorer schneidet z.B. die
    url ab 2034 zeichen ab.... jetzt stoße ich tw etwas über diese grenze und ich frage mich ob inetget auch was abschneidet!?
    ich habe aufgeschnappt, dass die ganzen autoit internet-steuerungsfunktionen auf dem IE aufgebaut sind. stimmt das? ... wie auch immer:
    ich würde gerne wissen wieviel zeichen inetget zulässt ?

  • timeout für inetget - gibts da was ?

    • WhiteLion
    • 2. Juli 2010 um 13:49

    ich hab dann die einfache variante genommen mit dem inetclose :D
    danke für die mühen!

  • timeout für inetget - gibts da was ?

    • WhiteLion
    • 2. Juli 2010 um 11:33

    ne ne ne, nicht ping!
    das muss schon inetget sein und eine downloadanfrage auf einen bestimmten port!

  • timeout für inetget - gibts da was ?

    • WhiteLion
    • 2. Juli 2010 um 10:42

    hey danke für die antworten.
    Auch wenn ich noch etwas auf dem schlauch stehe, besonders was die funktion von adlibregister angeht.... hab aber uach noch nicht weiter damit rumprobiert.

    Zitat von AutoBert

    Hallo whiteLion,

    du könntest ja mit AdlibRegister eine Funktion aufrufen die InetGetInfo(0) auswertet und nach 2 Sekunden ohne 1 Byte downgeloaded den Downloadversuch mit InetClose($HandledesDownloads) abbricht. Die gleiche Funktion kannst du benutzen um dir den DownLoad-Fortschritt anzuzuzeigen. Am Ende AdlibUnregister nicht vergessen,

    mfg (Auto)Bert

    die antwort von sprenger120 verstehe ich nicht, aber evtl wars auch nur blöd von mir erklärt... es ging darum dass eine fehl schlagende anfrage einfach zu lange braucht... mal abgesehen davon das ich den freez des programms habe, ich glaube diesbezüglich hat der bernd wohl diese adlib-sache vorgeschlagen.
    auch wie ich mit inetclose den timer beeinflussen soll weiss ich noch nicht ganz ... meint ihr so?:

    [autoit]


    $test = InetGet("http://www.test.de" , @TempDir & "\test.txt", 1,1)
    sleep(2000)
    inetclose($test)

    [/autoit]

    LG

  • datei aufsplitten, aber wie ?

    • WhiteLion
    • 2. Juli 2010 um 00:30

    mein zweites problemchen am heutigen tage:
    ich habe zwei dateien z.B. datei a und datei b.
    datei a ist 1200000 bytes gross datei b immer etwas größer z.b 1240000 bytes.
    ich möchte jetzt von datei b die differenz in einer dritten datei haben. also datei c -> 40000 bytes
    welche befehle helfen mir weiter um das ganze CPU schonend durchzuführen ?
    danke im voraus!

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™