Beiträge von muh_kuh

  • WIKI Seite automatisch befüllen

    hallo
    für alle Freunde von IE

    Spoiler anzeigen
    [autoit]

    #include "IE.au3"
    $wikipfad = "http://wikiseite/mediawiki/"
    $benutzername = "bot"
    $passwort = "bot"
    $aufsicht = 1 ;1= an 0= aus

    ;Start
    $IE= _IECreate($aufsicht)
    _IELoadWait($IE)
    _IENavigate($IE,$wikipfad&"index.php?title=Spezial:Userlogout",1)
    _IENavigate($IE,$wikipfad&"index.php?title=Spezial:Userlogin",1)
    $o_form = _IEFormGetObjByName($IE, "userlogin")
    $o_login = _IEFormElementGetObjByName($o_form, "wpName")
    $o_password = _IEFormElementGetObjByName($o_form, "wpPassword")

    _IEFormElementSetValue($o_login, $benutzername)
    _IEFormElementSetValue($o_password, $passwort)
    _IEFormSubmit($o_form)
    _IELoadWait($IE)
    ;

    HIER kommt rein was zu machen ist

    ;Ende
    _IENavigate($IE,$wikipfad&"index.php?title=Spezial:Userlogout",1)
    _IEQuit($IE)

    func _WikiArtikelAusgabe($IE,$artikel)
    ;Auslesen
    _IENavigate($IE,$wikipfad&"index.php?title="&$artikel&"&action=edit",1)
    $o_form = _IEFormGetObjByName($IE, "editform")
    $o_box = _IEFormElementGetObjByName($o_form,"wpTextbox1")
    $artikel_inhalt = _IEFormElementGetValue($o_box)
    return $artikel_inhalt
    EndFunc

    func _WikiArtikelAendern($IE,$artikel,$neuerText)
    ;Bearbeiten und erstellen
    _IENavigate($IE,$wikipfad&"index.php?title="&$artikel&"&action=edit",1)
    $o_form = _IEFormGetObjByName($IE, "editform")
    $o_box = _IEFormElementGetObjByName($o_form,"wpTextbox1")
    $artikel_anders= _IEFormElementSetValue($o_box, $neuerText)
    _IEFormSubmit($o_form)
    _IELoadWait($IE)
    return $artikel_anders
    EndFunc

    [/autoit]

  • exe in Ram schreiben

    Zitat von Oscar

    Und ein RAM-Drive schützt nicht davor, dass jemand an die EXE rankommt.

    Abgesehen davon verstehe ich das Ursprungsposting nicht. Wie soll man eine EXE schützen, wenn man sie auf dem Rechner ausführen will?


    Hallo
    eine Exe in Ram ist aber nicht so schnell zu kopiren
    und man kommt da drauf nicht so einfach
    ich kenne das Problem bei mir aus der Arbeit
    dort soll eine Exe beim Kunden ausgefürht werden welche danach das nicht mehr auffindbar ist
    und der kunden sie sich auch nicht beckupen soll

  • Skype API (die arbeit mit einer DLL)

    Hallo
    skype frage nach ob die autoit.exe auf skype zugreifen darf
    habe ein beispiel für dich

    Spoiler anzeigen
    [autoit]


    ;// Constants:
    Const $chatTypeUnknown = -1
    Const $chatTypeDialog = 0
    Const $chatTypeLegacyDialog = 1
    Const $chatTypeLegacyUnsubscribed = 2
    Const $chatTypeMultiChat = 3
    Const $chatTypeSharedGroup = 4
    Const $chatMemberRoleUnknown = -1
    Const $chatMemberRoleCreator = 0
    Const $chatMemberRoleMaster = 1
    Const $chatMemberRoleHelper = 2
    Const $chatMemberRoleUser = 3
    Const $chatMemberRoleListener = 4
    Const $chatMemberRoleApplicant = 5
    Const $chatStatusUnknown = -1
    Const $chatStatusConnecting = 0
    Const $chatStatusWaitingRemoteAccept = 1
    Const $chatStatusAcceptRequired = 2
    Const $chatStatusPasswordRequired = 3
    Const $chatStatusSubscribed = 4
    Const $chatStatusUnsubscribed = 5
    Const $chatStatusDisbanded = 6
    Const $chatStatusQueuedBecauseChatIsFull = 7
    Const $chatStatusApplicationDenied = 8
    Const $chatStatusKicked = 9
    Const $chatStatusBanned = 10
    Const $chatStatusRetryConnecting = 11

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

    ;// Create a Skype4COM object:
    $oSkype = ObjCreate("Skype4COM.Skype")
    $oSkypeEvent = ObjEvent($oSkype,"Skype_")
    $oError = ObjEvent("AutoIt.Error","MyErrFunc")

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

    ;// Start the Skype client:
    If Not $oSkype.Client.IsRunning Then
    $oSkype.Client.Start()
    EndIf

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

    $oMembers = ObjCreate("Skype4COM.UserCollection")
    $oMembers.Add($oSkype.User("echo123"))
    $oChat = $oSkype.CreateChatMultiple($oMembers)
    ;$oChat.Topic = "TomTec is cool"
    $oMsg = $oChat.SendMessage("(n)");(finger)
    $oChat.Leave

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

    ;$oCall = $oSkype.PlaceCall("echo123")
    ;If not $oSkype.Convert.TextToCallStatus("RINGING") Then
    ; $oCall.Finish
    ;Else
    ; Sleep(500)
    ; While not $oSkype.Convert.TextToCallStatus("RINGING")
    ; Sleep(200)
    ; WEnd
    ; $oCall.Finish
    ;EndIf

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

    ;$oSkype.Client.OpenMessageDialog("echo123", "Hi")

    [/autoit]

  • Login Script

    Hallo
    bot fragen werdne in diesen Forum nicht so gerne gesehen
    weiter weise ich auf die OGame AGB §4

    [autoit]


    #include <IE.au3>
    $oIE = _IECreate ("http://www.ogame.de/")
    $oForm = _IEFormGetObjByName ($oIE, "loginForm")
    $ologin = _IEFormElementGetObjByName ($oForm, "login")
    _IEFormElementSetValue ($ologin, "Benutzernmae")
    $opasswort = _IEFormElementGetObjByName ($oForm, "pass")
    _IEFormElementSetValue ($opasswort, "Passwort")
    $oSelect = _IEFormElementGetObjByName ($oForm, "universe")
    _IEFormElementOptionSelect ($oSelect, "1. Universum", 1, "byText")
    ;_IEFormSubmit ($oForm)

    [/autoit]


    Ungeteste

  • text aus internetseite auslesen

    [autoit]

    ; *******************************************************
    ; Beispiel 1 - öffnet einen Browser mit dem basic-Beispiel, ließt den body Text
    ; (der Inhalt mit allen HTML-Tags entfernt) und zeigt ihn in einer MsgBox
    ; *******************************************************
    ;
    #include <IE.au3>
    $oIE = _IE_Example ("basic")
    $sText = _IEBodyReadText ($oIE)
    MsgBox(0, "Body Text", $sText)

    [/autoit]

  • Suche Hilfe für ein script

    Zitat von Keltenkreuz

    Hallo ich bin blutiger Anfänger im Autoit und allgemein könntest mir dies ein bißchen genauer erklären Danke ?(


    Hallo Keltenkreuz,
    wo willst du den die Banner Klicken ?
    haben die eine Minus Banner ?
    Welchen Webenetz nutzen die ?
    ich würde es über den IE machen
    ersetz doch die Links durch ein Iframe

    Und als Start Hilfe

    Spoiler anzeigen


    Das Beispiel aus der Hilfe

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

    ; *******************************************************
    ; Beispiel 1 - Erkennt und deaktiviert COM-Errors, sodass 'Back' (zurück) und
    ; 'Forward' (vorwärts) außerhalb der Historygrenzen das Skript nicht abbrechen.
    ; (außer COM-Errors, die an die Konsole gesendet werden)
    ; *******************************************************
    ;
    #include <GUIConstants.au3>
    #include <IE.au3>

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

    _IEErrorHandlerRegister ()

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

    $oIE = _IECreateEmbedded ()
    GUICreate("Embedded Web control Test", 640, 580, _
    (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
    $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    $GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
    $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
    $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
    $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
    $GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)

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

    GUISetState() ;zeigt GUI

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

    _IENavigate ($oIE, "http://www.autoitscript.com")

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

    ; wartet, bis der Benutzer das Fenster schließt
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Home
    _IENavigate ($oIE, "http://www.autoitscript.com")
    Case $msg = $GUI_Button_Back
    _IEAction ($oIE, "back")
    Case $msg = $GUI_Button_Forward
    _IEAction ($oIE, "forward")
    Case $msg = $GUI_Button_Stop
    _IEAction ($oIE, "stop")
    EndSelect
    WEnd

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

    GUIDelete()

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

    Exit

    [/autoit]


    Zusätzlich wirst du

    [autoit]

    $text = StringReplace("Dies ist eine Zeile mit Text", " ", "-")
    $numreplacements = @extended
    MsgBox(0, "Der neue String", $text)
    MsgBox(0, "Anzahl an Ersetzungen", $numreplacements)

    [/autoit]


    +

    [autoit]

    _IEDocReadHTML ($oIE)
    _IEDocWriteHTML ($oIE, $sHTML)

    [/autoit]


    brauchen

  • Quelltext auslesen (bot)

    Hallo
    beachte das der Html Code von der Webseite etwas anderes aussieht als mit den FF oder normalen IE
    speicher dir den doch mal zwischen
    Ansonsten :

    [autoit]

    #include <String.au3>
    #include <array.au3>
    #include <IE.au3>
    $oIE = _IECreate ("http://autoit.de/index.php?page=Thread&threadID=6276&highlight=doof")
    $sHTML = _IEBodyReadHTML ($oIE)
    $sText = _IEBodyReadText ($oIE)
    _IEQuit ($oIE)
    $aArray1 = _StringBetween($sHTML, '<SPAN class=highlight>', '</SPAN>');Not using SRE
    _ArrayDisplay($aArray1, 'Default Search')
    MsgBox(0,"Nur Text",$sText)

    [/autoit]

  • Quelltext auslesen (bot)

    [autoit]

    #include <Array.au3>
    #include <IE.au3>
    $oIE = _IECreate ("http://autoit.de/index.php?page=Thread&threadID=6276&highlight=doof")
    $sHTML = _IEBodyReadHTML ($oIE)
    $sText = _IEBodyReadText ($oIE)
    _IEQuit ($oIE)
    $Test = StringSplit( $sHTML, '<SPAN class=highlight>',1)
    $Test = StringSplit( $Test[$Test[0]], '</SPAN>',1)
    $Test = $Test[1]
    MsgBox(0,"Inhalt",$Test)
    MsgBox(0,"Nur Text",$sText)

    [/autoit]

  • Cookies

    bei
    ie seite geöffent habe den rest via Private daten löschen
    FF
    erlaube das er sie behält
    bei rest einstellen das sie gelöscht werden beim beenden

  • Quelltext auslesen (bot)

    [autoit]

    #include <IE.au3>
    $oIE = _IECreate ("http://autoit.de")
    $sHTML = _IEDocReadHTML ($oIE)
    MsgBox(0, "Document Source", $sHTML)
    $sHTML = _IEBodyReadHTML ($oIE)
    MsgBox(0, "Document Source", $sHTML)
    _IEQuit ($oIE)

    [/autoit]


    Hoffe ja da sdu e snicht nur für ein Speiel Bot brauchst

  • Uhr brauche kleine Hilfe

    [autoit]

    #include <GUIConstants.au3>
    #include <Date.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Uhr = GUICreate ("Uhr", 119, 52, 292, 315)
    GUISetBkColor(0x004E98)
    $Edit1 = GUICtrlCreateList("", 0, 8, 113, 24)
    GUICtrlSetData(-1, _Nowtime())
    GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
    GUICtrlSetColor(-1, 0xFF0000)
    $1 = GUICtrlCreateMenu ("&Datei")
    $2 = GUICtrlCreateMenuItem ("Beenden", $1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $2
    Exit
    EndSwitch
    GUICtrlSetData($Edit1, _Nowtime())
    sleep(1)
    WEnd

    [/autoit]


    Ungetste

  • Vista

    Hallo,
    ich hab ein Programm geschrieben,
    unter Windows XP läuft es einwandfrei
    unter Vista nur in den "WIN XP Mode"
    Ich habe kein Vista um das zu Testen
    gibt es Funktion die ich unter Vista nicht nutzen darf ?

    Gruß