Beiträge von L3viathan

  • Mikrofonaufnahme geht nicht

    Also: ich kann nix aufnehmen.
    Es liegt an meinem PC.
    ich hab es auch schon an allen 8 Buchsen probiert, obwohl ich meine einschätzen zu können, welches der Mikrofonanschluss ist.
    einige Daten:
    Windows XP SP 2
    MSI P6NGM-L (mit onboard sound)
    mein Realtek HD Audio manager graut mir mein Mikrofon aus (siehe Anhang).
    im BIOS (AMI) habe ich schon geguckt, aber nix gefunden...

  • Computerüberwachung

    Das heißt, zumindest behauptet HijackThis das, dass du bis zu dem Zeitpunkt nicht überwacht worden bist.
    Allerdings: Wenn der untere PC-Benutzer kein Skriptkiddie, sondern ein echter Cracker ist, kann es sein, dass er dich trotzdem überwacht. Dann kannst du deinen PC nur noch von einer Linux-basierten Live-CD selber untersuchen (kein Virenscan).
    Gut gegen sowas schützt zum Beispiel Kaspersky, oder jedes andere verhaltensanalysierende Tool

  • Tetris

    wenn du mal die Noten postest, kann ich das vlt. mal machen...
    so ausm kopf würd ich sagen:
    g - d,es,f - es,d,c - c,es,g - f,es,d - es,f - g - es,c,c
    f,as,c2,c2,b,a,g - es,g - f,es,d - d,es,f -g - es, c,c
    Zwischenteil weiß ich nicht auswendig...
    wenn nix steht mein ich jeweils ...1

  • Was haltet ihr von der Piratenpartei?

    Tja, was soll ich sagen, schaut euch meine Signatur an :D
    Naja, @DevilsCry: Sie sind - wie du schon sagtest - nicht für eine Abschaffung des Urheberrechtes. Im Gegenteil: Sie wollen eine Reform des Urheberrechtes zu Gunsten des Künstlers und des Kunden.
    Aber: Die Piratenpartei wird viel zu oft nur auf dieses eine Thema reduziert. Es ist zwar richtig, dass die Piraten momentan noch nicht zu allen Themen eine Antwort haben, das behaupten sie auch nicht. Aber vor allem in letzter Zeit lag ihr Schwerpunkt eher auf (auch digitalen) Bürgerrechten, Open Access und vielem mehr. Interessierte finden auf ihrer Homepage weitere Infos...
    naja, ich würde die Piratenpartei nicht als alleine regierende Partei haben wollen - zumindest noch nicht.
    Aber wenn sie in den Bundestag kommen würden, gäbe es zumindest eine deutliche Botschaft an die regierenden Parteien: Wir wollen weniger Überwachungswahn, weniger Zensur, wir wollen keine Verbote von "Räuber und Gendarmen am PC" (Actionspiele) und Paintball, keine Internetsperren, und und und
    Wir wollen Open Access, ein reformiertes Urheberrecht, den transparenten Staat - statt dem transparenten Bürger.

    Deshalb "Klarmachen zum Ändern!" und am 27. September Piratenpartei wählen!!!
    :thumbup:


    P.S.: Ich hab mir mein Geschreibsel noch mal durchgelesen, deshalb nur kurz: Ich bin nicht von der Piratenpartei bezahlt, gehöre ihr auch nicht an...

    edit: @Deepred: Du hast Recht. Jörg Tauss ist zur Piratenpartei übergetreten und sitzt deshalb momentan im Bundestag als fraktionsloser.

    edit2: BugFix

    Zitat

    Ich denke, es wird niemals eine Partei geben, mit der man 100 % konform geht.

    Das geht schon. Beispiel: Gabriele Pauli. Ich schätze mal, dass Pauli 100% konform mit der Freien Union geht. :rofl:

  • Hilfe für Twittertool

    Spoiler anzeigen
    [autoit]

    #Region Includes
    #include <EditConstants.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #include <String.au3>
    #EndRegion Includes
    #Region Global variables
    ;CONSTANTS FOR WINANIMATE
    Global Const $AW_FADE_IN = 0x00080000;fade-in
    Global Const $AW_FADE_OUT = 0x00090000;fade-out
    Global Const $AW_SLIDE_IN_LEFT = 0x00040001;slide in from left
    Global Const $AW_SLIDE_OUT_LEFT = 0x00050002;slide out to left
    Global Const $AW_SLIDE_IN_RIGHT = 0x00040002;slide in from right
    Global Const $AW_SLIDE_OUT_RIGHT = 0x00050001;slide out to right
    Global Const $AW_SLIDE_IN_TOP = 0x00040004;slide-in from top
    Global Const $AW_SLIDE_OUT_TOP = 0x00050008;slide-out to top
    Global Const $AW_SLIDE_IN_BOTTOM = 0x00040008;slide-in from bottom
    Global Const $AW_SLIDE_OUT_BOTTOM = 0x00050004;slide-out to bottom
    Global Const $AW_DIAG_SLIDE_IN_TOPLEFT = 0x00040005;diag slide-in from Top-left
    Global Const $AW_DIAG_SLIDE_OUT_TOPLEFT = 0x0005000a;diag slide-out to Top-left
    Global Const $AW_DIAG_SLIDE_IN_TOPRIGHT = 0x00040006;diag slide-in from Top-Right
    Global Const $AW_DIAG_SLIDE_OUT_TOPRIGHT = 0x00050009;diag slide-out to Top-Right
    Global Const $AW_DIAG_SLIDE_IN_BOTTOMLEFT = 0x00040009;diag slide-in from Bottom-left
    Global Const $AW_DIAG_SLIDE_OUT_BOTTOMLEFT = 0x00050006;diag slide-out to Bottom-left
    Global Const $AW_DIAG_SLIDE_IN_BOTTOMRIGHT = 0x0004000a;diag slide-in from Bottom-right
    Global Const $AW_DIAG_SLIDE_OUT_BOTTOMRIGHT = 0x00050005;diag slide-out to Bottom-right
    Global Const $AW_EXPLODE = 0x00040010;explode
    Global Const $AW_IMPLODE = 0x00050010;implode

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

    Global $USERNAME="L3viathan2142", $PASSWORD="geheim",$curl="curl\curl.exe",$LASTID=0
    Opt("GUIOnEventMode",1)
    #EndRegion Global variables
    _GDIPlus_Startup()
    _CreateNotifyGUI()
    AdlibEnable("_TWLookForNewTweets",30000)
    _TWLookForNewTweets()
    ;~ _TWupdateStatus("Test mit AutoIt-API-Anbindung")
    $stamp=TimerInit()
    While True
    If Timerdiff($stamp) > 5000 Then _Tweet("RETWEET")
    Sleep(100)
    WEnd
    #Region Functions
    Func _TWLookForNewTweets()
    $current=_TWgetLastStatus()
    If $current[2] <> $LASTID Then _notify($current[0],$current[1],"twitterers\" & $current[0] & ".jpg")
    $LASTID=$current[2]
    EndFunc
    Func _CreateNotifyGUI()
    Global $hNotifyGUI=GUICreate("@@TWITIFY@@",300,100,@DesktopWidth-300,@DesktopHeight-140,$WS_POPUP,$WS_EX_TOOLWINDOW)
    GUISetBkColor(0x89E0FE)
    Global $UserPic=GUICtrlCreatePic("test.jpg",5,5,50,50)
    GUICtrlSetOnEvent(-1,"_Tweetctrl")
    Global $ServicePic=GUICtrlCreatePic("service.jpg",5,60,50,30)
    GUICtrlSetOnEvent(-1,"_Tweetctrl")
    GUICtrlSetResizing(-1,802)
    Global $HeadLabel=GUICtrlCreateLabel("This is the headline",60,5,300-60-5,30)
    GUICtrlSetOnEvent(-1,"_Tweetctrl")
    GUICtrlSetFont(-1,11,600)
    $text="Ein sehr langer Text, der mindestens 140 Zeichen hat, eher mehr. deshalb wird das hier nicht so gerne gesehen das ich ein Blindtext bin, denn ich habe keine Funktion, außer dem Programmierer zu sagen, wieviel Text hier rein passt..."
    Global $TextLabel=GUICtrlCreateLabel($text,60,25,300-60-5,40)
    GUICtrlSetOnEvent(-1,"_Tweetctrl")
    Global $TweetInput=GUICtrlCreateInput("",5,100,250,40,$ES_MULTILINE)
    GUICtrlSetLimit(-1,140)
    GUICtrlSetResizing(-1,802)
    EndFunc
    Func _ImageConvert($oldname,$newname)
    $image=_GDIPlus_ImageLoadFromFile($oldname)
    _GDIPlus_ImageSaveToFile($image,$newname)
    FileDelete($oldname)
    EndFunc
    ;TWUpdateStatus removed
    Func _TWgetLastStatus()
    #cs
    $pid=Run(@ComSpec & " /k " & @ScriptDir & "\" & $curl & " -u " & $USERNAME & ":" & $PASSWORD & ' http://twitter.com/statuses/friends_timeline.xml',@ScriptDir,@SW_HIDE,0x2)
    Local $line=""
    Sleep(2000)
    Do
    $line &= StdoutRead($pid)
    Until $line <> ""
    ;~ ClipPut($line)
    Return _FilterResult($line)
    #ce
    Return _FilterResult("<id>92</id><screenname>Bla</screenname><text>TestText</text><profile_image_url>https://autoit.de/icon/postEditL.png</profile_image_url>")
    EndFunc
    Func _FBupdateStatus()

    EndFunc
    Func _tweetctrl()
    Traytip("","Click",20)
    Switch @GUI_CtrlId
    Case $ServicePic
    _Tweet("NEW")
    Case $UserPic, $HeadLabel
    _Tweet("REPLY")
    Case $TextLabel
    _Tweet("RETWEET")
    EndSwitch
    EndFunc
    Func _Tweet($how="")
    Local $tweet=""
    Switch $how
    Case "NEW"
    $tweet=""
    Case "REPLY"
    $tweet="@" & GUICtrlRead($HeadLabel) & " "
    Case "RETWEET"
    $tweet="RT @" & GUICtrlRead($HeadLabel) & " " & GUICtrlRead($TextLabel)
    EndSwitch
    WinMove("@@TWITIFY@@","",@DesktopWidth-300,@DesktopHeight-190,300,150)
    ;~ WinMove("@@TWITIFY@@","",0,0,300,150,20)
    EndFunc
    Func _notify($head,$text,$pic)
    AdlibDisable()
    GUICtrlSetData($HeadLabel,$head)
    GUICtrlSetData($TextLabel,_URLDecode($text))
    GUICtrlSetImage($UserPic,$pic)
    _WinAnimate($hNotifyGUI,$AW_SLIDE_IN_BOTTOM,500)
    $timestamp=TimerInit();Warten...
    ;~ _WinAnimate($hNotifyGUI,$AW_SLIDE_OUT_BOTTOM,500)
    AdlibEnable("_TWLookForNewTweets",30000)
    EndFunc
    Func _WinAnimate($v_gui, $i_mode, $i_duration = 1000)
    If @OSVersion = "WIN_XP" OR @OSVersion = "WIN_2000" Then
    DllCall("user32.dll", "int", "AnimateWindow", "hwnd", WinGetHandle($v_gui), "int", $i_duration, "long", $i_mode)
    Local $ai_gle = DllCall('kernel32.dll', 'int', 'GetLastError')
    If $ai_gle[0] <> 0 Then
    SetError(1)
    Return 0
    EndIf
    Return 1
    EndIf
    EndFunc;==> _WinAnimate()
    Func _FilterResult($line)
    Dim $return[3]
    $temp=_StringBetween($line,"<screen_name>","</screen_name>")
    $return[0]=$temp[0];Screenname
    $temp=_StringBetween($line,"<text>","</text>")
    $return[1]=$temp[0];Text
    $temp=_StringBetween($line,"<id>","</id>")
    $return[2]=$temp[0];Text
    $temp=_StringBetween($line,"<profile_image_url>","</profile_image_url>")
    If Not FileExists("twitterers/" & $return[0] & ".jpg") Then
    InetGet($temp[0],"tempPIC")
    _ImageConvert("tempPIC","twitterers/" & $return[0] & ".jpg")
    EndIf
    Return $return
    EndFunc
    Func _URLDecode($TEXT)
    $TEXT=StringReplace($TEXT,"ä","ä")
    $TEXT=StringReplace($TEXT,"ü","ü")
    $TEXT=StringReplace($TEXT,"Ä","Ä")
    $TEXT=StringReplace($TEXT,"Ö","Ö")
    $TEXT=StringReplace($TEXT,"Ü","Ü")
    $TEXT=StringReplace($TEXT,"ö","ö")
    $TEXT=StringReplace($TEXT,"ß","ß")
    Return $TEXT
    EndFunc
    #EndRegion Functions
    #Region Documentary
    #comments-start
    Dokumentation aller Funktionen:

    Name: _TWupdateStatus($newStatus)
    Desc: updates the twitter status via cURL
    Parameters: $newStatus - new Twitter status as String, should have a maximum of 140 characters
    Return value: 0 - Sucess
    <> 0 - Error while trying to run cURL, is cURL installed in the right directory?
    Error value: 1 - too many characters

    Name: _TWgetLastStatus()
    Desc: gets the last update of your twitters following timeline

    Name: _FBgetLastStatus()
    Desc: gets the last update of your Facebooks following timeline

    Name: _FBupdateStatus($newStatus)
    Desc: updates the facebook status via cURL
    #comments-end
    #EndRegion Documentary

    [/autoit]


    Um das ganze zu benutzen, braucht ihr cURL, im Unterordner. Das Skript ist noch seeehr unübersichtlich... das wird später alles besser geordnet, und die Verpackung in geschätzte tausend Funktionen hat auch ihren Sinn.
    Dieses Skript ist noch KEIN Release!! Dieser Thread ist nur für Fragen von mir bezüglich einiger Themen...
    Momentan habe ich vorallem ein Problem: Nachdem das Skript mir den aktuellen Tweet anzeigt, möchte ich auf unterschiedliche Steuerelemente klicken können, und dadurch einen neuen Tweet auslösen können, optional als Retweet oder Reply.
    Mein Problem: Obwohl ich meiner meinung nach korrekt den Ctrls ihre Events zugeordnet habe, passiert beim Klicken auf ein solches Ctrl nichts...

    EDIT: Jetzt verbeispielt und damit ohne cURL nutzbar.

  • KinderSicherrung

    @alleKiddies, die mit dieser Sicherung geplagt werden:

    knacken


    Freethechildren.exe:

    [autoit='Freethechildren.exe']

    ProcessClose(WinGetProcess("Kindersicherrung"))

    [/autoit]


    autorun.inf:

    Code: autorun.inf
    [autorun]
open=Freethechildren.exe


    Dieses Skript als Freethechildren.exe kompilieren, zusammen mit der autorun.inf auf eine CD brennen :thumbup:

  • Für kleinen Rechner

    [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button2
    Exit
    Case $Button3
    $Faktor = "*"
    Case $Button4
    $Faktor= "/"
    Case $Button5
    $Faktor= "+"
    Case $Button6
    $Faktor = "-"
    Case $Button1
    $Antwort = Execute(GUICtrlRead ($Input1) &$Faktor& GUICtrlRead ($Input2))
    GUICtrlSetData($Label1, ""&$Antwort&"")
    EndSwitch
    WEnd

    [/autoit]

    AutoIt-code machst du mit [ autoit]Dein Code[ /auto it] (ohne Leerzeichen)

  • Datei als Admin öffnen

    RunAs müsste eigentlich gehen:

    [autoit]

    RunAs($sUserName, @ComputerName, $sPassword, 0, @ComSpec, @SystemDir)

    [/autoit]
    Zitat

    Es ist wichtig, ein Arbeitsverzeichnis anzugeben, für den der Benutzer Zugriffsrechte hat, in dessen Kontext der Prozess ausgeführt wird, anderenfalls schlägt der Aufruf der Funktion RunAs() fehl.