Beiträge von Kev

  • Music like this

    Hey,

    ich habs neben meinen bösen Metalcore auch mit Instrumentals bzw. sehr ruhige Musik.
    Einfach mal zum Abschalten.
    Hab eben ein bisschen rumgeschaut und folgendes entdeckt:

    Klick mich

    Wollte mal fragen ob ihr sowas kennt? Finds nämlich top.
    Paar Songs oder Artisten tuns auch ;)

    Dankö

  • Get_All_Information

    jop war nich wirklich schwer ^^

    bzw was ich da ausgebaut hab,ist schon etwas komplizierter, darf & werd & will ich net releasen :D
    bzw. vorschläge was man noch so auslesen könnte, sind willkommen.

  • Get_All_Information

    Hey,

    ich habn kleines Tool geschrieben welches euch so ca. alle Informationen in ein txt file packt.
    Könnte man auch für böse Zwecke nutzen aber soweit ausbauen werd ich es deswegen hier nicht ;)
    Bzw. hab ich schon, gibts aber nicht :D

    Status:

    Online IP
    Local IP
    System Information
    Betriebsystem
    Boot Time
    Computername
    Angemelder User
    Start UP Einträge.
    Aktive Prozessanzahl
    Aktive Prozesse
    Festplattenspeicher
    Installierte Software.
    etc.

    Source:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.6.1
    Author: Kev

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

    Script Function:
    Lists everything

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    #include <INet.au3>
    #include <Array.au3>
    #include <String.au3>
    #include <Date.au3>
    $boottime = _DateAdd('s', -Int(_Date_Time_GetTickCount()/1000), _NowCalc())
    $date = @MON & "/" & @MDAY & "/" & @YEAR
    Filedelete(@scriptdir & "\information.txt")
    $source = _inetgetsource("http://www.wieistmeineip.de/")
    $IP_arr = _StringBetween($source,"<h1 class=","</h1>")
    $IP = StringTrimleft($IP_arr[0],5)
    Filewrite(@scriptdir & "\information.txt","******************************************** START LOGGING ****************************************")
    Filewrite(@scriptdir & "\information.txt",@crlf)
    Filewrite(@scriptdir & "\information.txt","Start Logging: " & @Hour & ":" & @MIN & ":" & @SEC & " Uhr " & "---> Datum: " & $date & @crlf)
    Filewrite(@scriptdir & "\information.txt","***************************************************************************************************")
    Filewrite(@scriptdir & "\information.txt",@crlf)
    Filewrite(@scriptdir & "\information.txt",@crlf)
    Filewrite(@scriptdir & "\information.txt","Extern Host IP Adress: " & $IP & @crlf)
    Filewrite(@scriptdir & "\information.txt","System: " & @OSArch & " Build: " & @OSBuild & @crlf)
    Filewrite(@scriptdir & "\information.txt","Betriebssystem: " & @OSVersion & @crlf & "Language: " & @OSlang & @crlf & "Service Pack: " & @OSServicePack & @crlf)
    Filewrite(@scriptdir & "\information.txt","Boot Time: " & $boottime & @crlf & @crlf)
    Filewrite(@scriptdir & "\information.txt","Local IP 1: " & @IPAddress1 & @crlf)
    Filewrite(@scriptdir & "\information.txt","Local IP 2: " & @IPAddress2 & @crlf)
    Filewrite(@scriptdir & "\information.txt","Local IP 3: " & @IPAddress3 & @crlf)
    Filewrite(@scriptdir & "\information.txt","Current User: " & @username & @crlf)
    Filewrite(@scriptdir & "\information.txt","Computername: " & @ComputerName & @crlf)
    Filewrite(@scriptdir & "\information.txt","MAC Adresse: " & _GetMACFromIP(@IPAddress1) &@crlf)
    system()
    Filewrite(@scriptdir & "\information.txt",@crlf)
    autostart()
    Filewrite(@scriptdir & "\information.txt",@crlf)
    Filewrite(@scriptdir & "\information.txt","***************************************************************" & @crlf)
    Filewrite(@scriptdir & "\information.txt","Process Read Start: " & @crlf)
    Filewrite(@scriptdir & "\information.txt","***************************************************************" & @crlf)
    $process = ProcessList()
    Filewrite(@scriptdir & "\information.txt","Aktuelle Prozessanzahl: "& $process[0][0] & @crlf)
    for $i = 1 to $process[0][0]
    Filewrite(@scriptdir & "\information.txt","Prozess Nr." & $i & " --> " & $process[$i][0] & @crlf)
    Next
    Filewrite(@scriptdir & "\information.txt","***************************************************************")
    Filewrite(@scriptdir & "\information.txt",@crlf)
    Filewrite(@scriptdir & "\information.txt",@crlf)
    softwarelist()
    func softwarelist()
    Global $count = 1, $all_keys = "", $main_key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    While 1
    $act_key = RegEnumKey ($main_key, $count)
    if @error then ExitLoop
    $act_name = RegRead ($main_key & "\" & $act_key, "Displayname")
    $act_name = StringReplace ($act_name, " (remove only)", "")
    If $act_name <> "" Then $all_keys = $all_keys & $act_name & @crlf
    $count = $count + 1
    WEnd
    Filewrite(@scriptdir & "\information.txt","***************************************************************" & @crlf)
    Filewrite(@scriptdir & "\information.txt","Installed Software:" & @crlf)
    Filewrite(@scriptdir & "\information.txt","***************************************************************" & @crlf)
    Filewrite(@scriptdir & "\information.txt",$all_keys)
    $x = Filewrite(@scriptdir & "\information.txt","***************************************************************" & @crlf)
    if $x = 1 then
    msgbox(0,"","File erfolgreich erstellt")
    else
    msgbox(0,"","Fehler,File konnte nicht erstellt werden")
    Endif
    Endfunc

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

    Func system()
    $hdSizeC = DriveSpaceTotal( "c:\")
    $hdFreeSizeC = DriveSpaceFree( "c:\")
    $hdSizeD = DriveSpaceTotal( "d:\")
    $hdFreeSizeD = DriveSpaceFree( "d:\")
    Filewrite(@scriptdir & "\information.txt","Laufwerk C Größe : " & Round($hdSizeC) & "MB" & @CRLF & "Laufwerk C Frei : " & Round($hdFreeSizeC) & "MB" & @CRLF & "Laufwerk D Größe : " & Round($hdSizeD) & "MB" & @CRLF & "Laufwerk D Frei : " & Round($hdFreeSizeD) & "MB" & @CRLF)
    If IsAdmin() Then
    Filewrite(@scriptdir & "\information.txt","Rechte : Administrator" & @CRLF)
    Else
    Filewrite(@scriptdir & "\information.txt", "Rechte : User" & @CRLF)
    EndIf
    EndFunc ;==>system

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

    Func autoStart()
    Local $Count = 1
    Local Const $regkey = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'

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

    While 1
    $key = RegEnumVal($regkey, $Count)
    If @error <> 0 Then ExitLoop
    $line = RegRead($regkey, $key)
    Filewrite(@scriptdir & "\information.txt","Autostart Programme: ")
    Filewrite(@scriptdir & "\information.txt",$line & @crlf)
    If $line <> '' Then
    If Not IsDeclared('avArray') Then Dim $avArray[1]
    ReDim $avArray[UBound($avArray) + 1]
    $avArray[0] = UBound($avArray) - 1
    $avArray[UBound($avArray) - 1] = $line
    EndIf
    $Count = $Count + 1
    WEnd
    If Not IsDeclared('avArray') Then
    SetError(1)
    Return ('')
    Else
    SetError(0)
    Return ($avArray)
    EndIf
    EndFunc ;==>autoStart

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

    Func _GetMACFromIP($sIP)
    Local $MAC, $MACSize
    Local $i, $s, $r, $iIP
    $MAC = DllStructCreate("byte[6]")
    $MACSize = DllStructCreate("int")
    DllStructSetData($MACSize, 1, 6)
    $r = DllCall("Ws2_32.dll", "int", "inet_addr", "str", $sIP)
    $iIP = $r[0]
    $r = DllCall("iphlpapi.dll", "int", "SendARP", "int", $iIP, "int", 0, "ptr", DllStructGetPtr($MAC), "ptr", DllStructGetPtr($MACSize))
    $s = ""
    For $i = 0 To 5
    If $i Then $s = $s & ":"
    $s = $s & Hex(DllStructGetData($MAC, 1, $i + 1), 2)
    Next
    Return $s
    EndFunc

    [/autoit]

    Have fun unso ;)


    //edit

    MAC Adresse added.

  • ICQ-Kontakt online?

    hab ich versucht ;) da kommt bei mir irgendwie nur rotz raus.
    kann aber auch am proxy liegen, dsw speicher ich das zwischen.

    habs nun so gelößt.

    [autoit]

    Func start()
    Filedelete(@tempdir & "\log.txt")
    Guictrlsetdata($input,"Bitte warten...")
    $icq = Guictrlread($icqnr)
    if $icq = "" Then
    msgbox(0,"Achtung","Keine ICQ Nummer angegeben")
    else
    $oIE = _IEcreate("http://kanicq.ru/invisible/de/"&$icq,0,0)
    if @error Then
    msgbox(0,"Achtung","Service momentan nicht verfügbar")
    Endif
    $source = _IEBodyReadHTML($oIE)
    Filewrite(@tempdir & "\log.txt",$source)
    ;$x = fileread(@tempdir & "\log.txt")

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

    $string = Filereadline(@tempdir & "\log.txt",83)
    $auf = _StringBetween($string,"title=","alt")

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

    Guictrlsetdata($input,$icq & " ist " & $auf[0] & " ! ")

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

    _IEQuit($oIE)
    Endif
    Endfunc

    [/autoit]

    das klappt auch ;)

    solange der source sich nich verändert :S

  • ICQ-Kontakt online?

    also ich habn bisschen rumprobiert.
    aber vorerst nur ne lösung per IE gefunden ;)

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.6.1
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    #include <INet.au3>
    #include <IE.au3>
    #include <Array.au3>
    #include <String.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    $main = GUICreate("Visible ICQ",250,200)
    Guictrlcreatelabel("ICQ Nummer:",10,15,100,25)
    $icqnr = GuictrlcreateInput("",10,50,100,20)
    $start = Guictrlcreatebutton("starten",10,80,100,25)
    $input = Guictrlcreateinput("",10,120,230,70)
    Guictrlsetstate(-1,$GUI_DISABLE)
    GUISetState(@SW_SHOW) ;

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

    While 1
    $msg = GUIGetMsg()
    switch $msg
    case $start
    start()
    case $GUI_EVENT_CLOSE
    exit
    Endswitch
    WEnd
    GUIDelete()

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

    Func start()
    Guictrlsetdata($input,"Bitte warten...")
    $icq = Guictrlread($icqnr)
    if $icq = "" Then
    msgbox(0,"Achtung","Keine ICQ Nummer angegeben")
    else
    $oIE = _IEcreate("http://kanicq.ru/invisible/de/"&$icq,0,0)
    $source = _IEBodyReadHTML($oIE)
    Filewrite(@tempdir & "\log.txt",$source)
    $x = fileread(@tempdir & "\log.txt")
    $string = _StringBetween($x,"title="," alt=")
    Guictrlsetdata($input,$icq & " ist " & $string[9] & " ! ")
    _IEQuit($oIE)
    Fileclose($x)
    Filedelete(@tempdir & "\log.txt")
    Endif
    Endfunc

    [/autoit]

  • Msn Relogger 1.0 By KingVegeta444

    okay ich sag doch was:

    MSN Pfad ist unterschiedlich. (Kann muss aber nicht)
    Mit "send" arbeiten = rotz.
    Die Msgbox hat Schreibfehler.
    Koda suckt.

    So far

    Kev

    (ja ich bin heut gereizt, musste leider drunter leiden)

    //edit

    Ich bin das Böse in Person

  • BSoD Bildschirmschoner

    stimmt habs grad gesehn, aber der cpu mist is crap :D

    mach maln fun ding drauß mit: