Beiträge von Eistee

  • Hardware auflisten wie im gerätemanager ?

    Hallo liebe Community

    Ich wollte fragen ob es möglich ist einen kleinen gerätemanager zu machen mit dem ich auslesen kann welche hardware eingebaut ist ? so das ich beispielsweise sehe welche grafikkarte oder welche CPU ist das möglich ?

    Ich hoffe es ist möglich und ihr könnt mir dabei helfen

    mfg LogiVidia

  • Script Hilfe

    Spoiler anzeigen
    [autoit]

    _ReplaceStringInFile(@ScriptDir & '\ip.txt',@TAB, ':')

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

    Func _ReplaceStringInFile($szFileName, $szSearchString, $szReplaceString, $fCaseness = 0, $fOccurance = 1)

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

    Local $iRetVal = 0
    Local $hWriteHandle, $aFileLines, $nCount, $sEndsWith, $hFile
    ; Check if file is readonly ..
    If StringInStr(FileGetAttrib($szFileName), "R") Then Return SetError(6, 0, -1)
    ;===============================================================================
    ;== Read the file into an array
    ;===============================================================================
    $hFile = FileOpen($szFileName, 0)
    If $hFile = -1 Then Return SetError(1, 0, -1)
    Local $s_TotFile = FileRead($hFile, FileGetSize($szFileName))
    If StringRight($s_TotFile, 2) = @CRLF Then
    $sEndsWith = @CRLF
    ElseIf StringRight($s_TotFile, 1) = @CR Then
    $sEndsWith = @CR
    ElseIf StringRight($s_TotFile, 1) = @LF Then
    $sEndsWith = @LF
    Else
    $sEndsWith = ""
    EndIf
    $aFileLines = StringSplit(StringStripCR($s_TotFile), @LF)
    FileClose($hFile)

    [/autoit]


    so gehts auch ohne includes xD

  • Read Input wenn Enter

    so führt er die funktion beim klick auf den button aus aber deine funktion scheint nicht zu funktionieren
    wenn ich eingebe : https://autoit.de dann erscheint nur eine llere msg box


    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=D:\Eigene Dateien D\Programme\IPinger.kxf
    $IPinger = GUICreate("IPinger", 603, 450, 193, 125)
    GUISetBkColor(0xFFFFFF)
    $IPinger = GUICtrlCreateLabel("IPinger", 224, 24, 160, 66)
    GUICtrlSetFont(-1, 36, 800, 0, "Sylfaen")
    $Schriftzug = GUICtrlCreateLabel ( "Das Tor zur Welt der IPs - Das Internet zeigt seine Namen", 160, 120, 283, 17)
    $Input1 = GUICtrlCreateInput("Geben sie hier die URL ein", 136, 208, 329, 21)
    GUICtrlSetFont(-1, 10, 400, 0, "Lucida Console")
    GUICtrlSetCursor (-1, 5)
    $GO_IP = GUICtrlCreateButton("FIND IP", 256, 248, 75, 65, 0)
    GUICtrlSetFont(-1, 12, 800, 2, "Sylfaen")
    $Copyright = GUICtrlCreateLabel("(c) 2008 by Roman Leuprecht; Picture from NASA", 152, 416, 280, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Made_with_AutoIT = GUICtrlCreateLabel("Made with AutoIT(http://www.autoit.de)", 192, 432, 195, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GO_IP
    _1()
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Copyright
    EndSwitch
    WEnd

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

    Func _1()
    TCPStartup()
    MsgBox(1+64, "IP",TCPNameToIP($Input1))
    EndFunc

    [/autoit]

  • Script Hilfe

    @petry94 benutze die neue optimierte version von stilgar soweit ich das sehe ist diese effizienter
    und wo die textdatei angegeben wird ist doch im script ersichtlich
    sollte dies nicht ersichtlich sein wird dir mit sicherheit die hilfe weiterhelfen :rofl:

    Mfg Eistee^^

  • Script Hilfe

    @ Stilgar du das fachhochdeutsch das du grade verwendet hast bereitetmir schwindelgefühle
    wie wärs wenn du dann meine version anpasst oder deine gleich af eine externe textdatei auslegst ?

    Mfg Eiste^^

  • Script Hilfe

    Spoiler anzeigen
    [autoit]

    #include<array.au3>
    #include<File.au3>
    Local $filename ='1.txt';1.txt war meine testfile kannste natürlich anpassen
    Local $meinarray ;die txt wird hierrein gelesen
    Local $nLfd ;hilfsarray
    Local $hFile ;hilfsarray
    $hFile = FileOpen($filename,0)
    _FileReadToArray($filename,$meinarray)
    FileClose($hFile)
    $hFile = FileOpen($filename,2)
    For $nLfd = 1 To $meinarray[0]
    $meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],' ',':');hier wird ersetzt
    If $nLfd <> $meinarray[0] Then $meinarray[$nLfd] &= @CRLF
    FileWrite($hFile,$meinarray[$nLfd]);Und hier schreiben wir den euen inhalt in die datei
    Next
    FileClose($hFile)

    [/autoit]

    er maint leerzeichen

    Und so geht es übrigens habe auch kommentiert vielleicht hilfts ja

  • text darstellen?

    Ich glaube durchsichtig geht nicht aber ich habe es mal ein bissel umdesignt wenn du es so willst kannste das nehmen

    Spoiler anzeigen
    [autoit]

    #include <Inet.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Dim $Serverurl = "http://slash.5x.to/"
    Dim $File = "test.txt"
    $sText = _INetGetSource($Serverurl & $File)
    If FileExists("C:\slash\image\BGS.bmp") Then
    _Haupt()
    Else
    DirCreate("C:\slash\image")
    FileInstall("About.bmp","C:\slash\image\About.bmp")
    FileInstall("Visit.bmp","C:\slash\image\Visit.bmp")
    FileInstall("DelCache.bmp","C:\slash\image\DelCache.bmp")
    FileInstall("Start.bmp","C:\slash\image\Start.bmp")
    FileInstall("Minimieren.bmp","C:\slash\image\Minimieren.bmp")
    FileInstall("Close.bmp","C:\slash\image\Close.bmp")
    FileInstall("BGS.bmp","C:\slash\image\BGS.bmp")
    Sleep(500)
    _Haupt()
    EndIf
    Func _Haupt()
    $Form1 = GUICreate("WoW Server Launcher", 380, 290, -1, -1,$WS_POPUP)
    GUISetBkColor(0x000000)
    $Edit1 = GUICtrlCreateEdit("", 2, 48, 376, 161,0,0)
    GUICtrlSetBkColor(-1,0x000000)
    GUICtrlSetColor(-1,0xffffff)
    GUICtrlSetData(-1, $sText)
    GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Pic1 = GUICtrlCreatePic("C:\slash\image\About.bmp", 8, 235, 100, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic2 = GUICtrlCreatePic("C:\slash\image\Visit.bmp", 128, 235, 100, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic3 = GUICtrlCreatePic("C:\slash\image\DelCache.bmp", 256, 256, 100, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic4 = GUICtrlCreatePic("C:\slash\image\Start.bmp", 256, 216, 100, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic5 = GUICtrlCreatePic("C:\slash\image\Minimieren.bmp", 342, 1, 18, 18, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic6 = GUICtrlCreatePic("C:\slash\image\Close.bmp", 361, 1, 18, 18, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic7 = GUICtrlCreatePic("C:\slash\image\BGS.bmp", 0, 0, 380, 290, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
    GUICtrlCreateLabel("",0,0,380,290,0,$GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Pic1
    _AnimButton($Form1, $Pic1)
    _About()
    Case $Pic2
    _AnimButton($Form1, $Pic2)
    _Visit()
    Case $Pic3
    _AnimButton($Form1, $Pic3)
    _delcache()
    Case $Pic4
    _AnimButton($Form1, $Pic4)
    _Start()
    Case $Pic5
    _AnimButton($Form1, $Pic5)
    _Mini()
    Case $Pic6
    _AnimButton($Form1, $Pic6)
    _Close()
    EndSwitch
    WEnd
    EndFunc
    Func _Start()
    ;Deine Funktion für Start
    EndFunc
    Func _About()
    ;Deine Funktion für about
    EndFunc
    Func _Visit()
    ;Deine Funktion für Visit
    EndFunc
    Func _Delcache()
    ;Deine Funktion für Del Cache
    EndFunc
    Func _Mini()
    GUISetState(@sw_minimize,$Form1)
    Endfunc
    Func _Close()
    Exit
    EndFunc
    Func _AnimButton($IDgui, $IDbtn, $delay=100);Animiert bilder als button, funktion an sich von BugFix
    Local $pos = ControlGetPos($IDgui, '', $IDbtn)
    Local $pWin = WinGetPos($IDgui)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
    Sleep($delay)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
    EndFunc ;==> _AnimButton

    [/autoit]

    Im anhang sind die Bilder


    Mfg Eistee^^

  • No-ip.org DUC nachbauen ?

    ich habe die zeile 58 jetzt wieder integriert und es geht immer noch nicht erkläre mich bitte nicht für blöd oder so aber ich kann wenn ich dieses teil laufen habe immer noch niht drauf zugreifen wie wenn ich den original no-ip.duc verwende

    P.s. wenn es dir vielleicht weiterhilft hier die letzte logfile

    Spoiler anzeigen
    [autoit]

    2008-06-23 08:08:18 : Folgende remote IP wurde ermittelt: 85.181.144.64
    2008-06-23 08:08:18 : Folgende lokale IP wurde ermittelt: 85.181.144.64
    2008-06-23 08:08:17 : Programm gestartet
    2008-06-23 08:07:18 : Programm wird nun beendet.
    2008-06-23 08:07:18 : Zuletzt geprüft: 2008.06.23 - 08:07:18
    2008-06-23 08:07:18 : Letze remote IP: 85.151.150.188
    2008-06-23 08:07:18 : Letze eigene IP: 85.181.144.64
    2008-06-23 08:03:52 : Folgende remote IP wurde ermittelt: 85.181.144.64
    2008-06-23 08:03:52 : Folgende lokale IP wurde ermittelt: 85.181.144.64
    2008-06-23 08:03:51 : Programm gestartet

    [/autoit]

    desweiteren habe ich keinen router (sitze nur an nem modem) und auch keine firewall
    woran liegt das bitte ?

  • No-ip.org DUC nachbauen ?

    *push*

    Habe nochmal das problem das es nicht gehen will er scheint sich zu verbinden und scheint auch eine Ip upzudaten aber wenn ich apache starte ist mein server nicht erreichbar mache ich das allerdings über den original no-ip duc geht das
    und ich finde in dem script keinen fehler Plz help