jo so in der art
allerdings nur für die hardware weil ich im Prinzip so etwas schreiben will wie dein link weisste
aber ist schon mal ein guter ansatz werde schauen was ich daraus machen kann danke
Beiträge von Eistee
-
-
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
-
an der stelle an der es durchsichtig sein soll muss die farbe weiß sein
und dann gibste der gui noch den styly $WS_Ex_Layered -
-
Am besten und einfachsten ist der "smart install maker" den verwende ich ganz gerne der ist auch auf deutsch und leichter zu bedienen
Einfach mal GoogelnMfg Eistee^^
-
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
[/autoit]
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)so gehts auch ohne includes xD
-
Ich hoffe mal das beispiel in post eins ist nichts persönliches ?
-
das mit den "" hatte ich bei mir auch angepasst und es geht immer noch nicht
Edit// LoL geht doch,man darf nur kein "http://" davor setzen
-
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 boxSpoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=D:\Eigene Dateien D\Programme\IPinger.kxf
[/autoit] [autoit][/autoit] [autoit]
$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 ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GO_IP
_1()
Case $GUI_EVENT_CLOSE
ExitCase $Copyright
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndSwitch
WEndFunc _1()
[/autoit]
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP($Input1))
EndFunc -
ähm für die zukunft : SCRIPT DAZU POSTEN
-
-
@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 weiterhelfenMfg Eistee^^
-
gemeint war
"suboptimal" -
@ 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^^
-
Spoiler anzeigen
[autoit]#include<array.au3>
[/autoit]
#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)er maint leerzeichen
Und so geht es übrigens habe auch kommentiert vielleicht hilfts ja
-
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>
[/autoit]
#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 ;==> _AnimButtonIm anhang sind die Bilder
Mfg Eistee^^
-
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
[/autoit]
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 gestartetdesweiteren habe ich keinen router (sitze nur an nem modem) und auch keine firewall
woran liegt das bitte ? -
Func _download_size()
$1 = InetGetSize($link_input)
MsgBox(0,"",$1 & " Bytes")
EndFuncImmerhin schonmal die grösse der datei bestimmen xD^^
-
*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 -
Ok ich muss dich leider enttäuschen das ging nu gestern weil das mit der no-ip ja immer geht bis man seine eigene ip wechselt
weil wenn man es jetzt macht geht es nichtmehr trotzdem danke schade...