Beiträge von pretrojaner

pretrojaner

Zitat von Fintan

$sOut = 'Kerne: ' & GetCPUCores()

lediglich die klammern am ende wurden vergessen dann klappt es wieder.
Grüße
Pre

pretrojaner

Klasse Sache, aber mir stellt sich gerade die Frage was wohl passiert wenn eine Festplatte zu einem VHD konvertiert wird ? wie wird diese dann erkannt als virtuelle Platte oder nicht ? Hat das schon einer Ausprobiert ? Zudem gibt es ja auch noch die möglichkeit eine VHD Datei als Festplatte in einem Hostsystem einzubinden, in dem fall währe es ja auch keine Virtuelle Umgebung ? oder wie ist dann die Definition ?

pretrojaner

dankeschön für die schnellen antworten.

dieses funktioniert auch wunderbar, doch bei mir leider nur unter Windows 7, unter Windows XP (auf mehreren Maschinen getestet) bleibt das Eingabefeld leer.

noch ne Idee ?

pretrojaner

Hallo,

bräuchte mal wieder kurz eure Hilfe.
Ich möchte ein passwort input feld erstellen, in dem schon vorweg Kennwort drin steht, jedoch wenn ein passwort eingetragen wird soll das kennwort verschwinden und stattdessen das passwort mit " * " sternchen dort erscheinen. Ich hatte mir das eigentlich einfach vorgestellt, ist es aber wohl nicht.

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Form1", 211, 100, 192, 124)
$Input1 = GUICtrlCreateInput("Kennwort", 40, 16, 137, 21,$ES_AUTOHSCROLL)
$OK = GUICtrlCreateButton("OK", 64, 48, 89, 25)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
ConsoleWrite($nMsg & @CRLF)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Input1
GUICtrlSetStyle($Input1, $ES_PASSWORD)
EndSwitch
WEnd

[/autoit]

was mache ich für einen denkfehler ?

Danke
Pre

pretrojaner

Hallo mal wieder,

Könnte man es eigentlich mit AutoIt bewerkstelligen das das ausgeführte (compilierte) Script merkt, ob es via Doppelklick, oder comandozeile ausgeführt worden ist ? vieleicht sogar noch weiterführend ob es durch ein anderes programm gestartet worden ist ?

gruß
Pre

pretrojaner

schade, habe es via Object nicht hinbekommen, muss woll noch nen bissel lernen, trozdem danke für die tipps.
schliese dann mal den fall und setzte ihn auf gelöst, auch wenns nicht stimmt.

gruß Pre

pretrojaner

Zitat von Tigger1975

Hallo habe dir mal eine Incl. File angehängt darin sind einige UDFs unter anderem auch httppost()

Kann es sein das du versuchst dich an ein Fritz!box zu hängen? (https://autoit.de/index.php?page…ght=#post109152 )

da ist was fertig hier im Forum.

ja ich versuche meine eigene fritzbox zu "hängen", das fertige hier im forum habe ich auch schon gesehen, ist aber nicht so schön gelöst bzw, würde ich das gerne anderst versuchen. resultierend aus dem beitrag habe ich mir diese funktion abgeleitet :#

Spoiler anzeigen

[autoit]

Func _fritzboxgetsid($sresponse)
$POSTDATA = "login:command/response=" & $sresponse & "&getpage=../html/de/menus/menu2.html"
$httpsocet = _HTTPConnect($fritzboxnameorip)
$RC = _HTTPPost($fritzboxnameorip, "http://" & $fritzboxnameorip & "/cgi-bin/webcm", $httpsocet, $POSTDATA)
Sleep(1000)
$RC = _HTTPRead($httpsocet, 0)
$SID = StringRegExp($RC, '[nNaAmMeE]+="[sSiIdD]+"\s*[vVaAlLuUeE]+\s*=\s*"(.*)"\s+', 1)
$SID = $SID[0]
Return $SID
EndFunc ;==>_fritzboxgetsid

[/autoit]

jedoch dachte ich das via object lösen zu können, schlug aber bisher fehl. Jemand eine Idee ?

mein versuch hierzu sah so aus:

Spoiler anzeigen

[autoit]

Func _fritzboxgetsid($sresponse)
$POSTDATA = "login:command/response=" & $sresponse & "&getpage=../html/de/menus/menu2.html"
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.open("PUT","http://"&$fritzboxnameorip&"/cgi-bin/webcm",false)
$oHTTP.send($POSTDATA)
$RC= $oHTTP.responseText
$SID = StringRegExp($RC, '[nNaAmMeE]+="[sSiIdD]+"\s*[vVaAlLuUeE]+\s*=\s*"(.*)"\s+', 1)
$SID = $SID[0]
Return $SID
EndFunc

[/autoit]

aber irgentwie schein da noch was dran verkehrt zu sein ?
Jemand ne idee

Gruß Pre

pretrojaner

bräuchte mal kurze hilfe bei der umsetztung eines html codes nach AutoIt

folgenden code habe ich im HTML

PHP

<form action="../cgi-bin/webcm/"   ...>
...
<input type="Password" name="login:command/response" value="response">
</form>

wie packt man diese zeilen in AutoIt Script code ?

grüße
Pre

pretrojaner

Hallo Leutz,
das passiert wenn man mal nachts nicht schlafen kann . Man setzt sich an den PC und programiert noch ein wenig herrum. Es hat aber geholfen müde zu werden

zum script:
Wie sicherlich vielen schon bekannt, sperrt Outlook ab der version 2000 diverse Dateianhänge, ob nun sinnvoll oder nicht, hin und wieder kann das sehr störend sein. Hier mein script hierzu.

Bitte beachtet es wird ein Wert in der Registry gesetzt Der dieses bewerkstelligt. Im Grunde auch keine große Sache.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>

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

Global $blockedfiltypes[86][2] = [[".ADE", "Access-Projekterweiterung (Microsoft)"], _
[".ADP", "Access-Projekt (Microsoft)"], _
[".ADP", "Access-Projekt (Microsoft)"], _
[".APP", "Ausführbare Anwendung"], _
[".ASP", "Active Server Pages"], _
[".BAS", "BASIC-Quellcode"], _
[".BAT", "Stapelverarbeitung"], _
[".CER", "Internetsicherheit-Zertifikatsdatei"], _
[".CHM", "Kompilierte HTML-Hilfe"], _
[".CMD", "DOS CP/M-Befehlsdatei, Befehlsdatei für Windows NT"], _
[".COM", "Befehl"], _
[".CPL", "Windows-Systemsteuerungsoption (Microsoft)"], _
[".CRT", "Zertifikatsdatei"], _
[".CSH", "CSH-Skript"], _
[".DER", "DER-codierte X509-Zertifikatsdatei"], _
[".EXE", "Ausführbare Datei"], _
[".FXP", "Kompilierte FoxPro-Quelle (Microsoft)"], _
[".gadget", "Windows Vista-Gadget"], _
[".HLP", "Windows-Hilfedatei"], _
[".HTA", "Hypertextanwendung"], _
[".INF", "Informations- oder Setupdatei"], _
[".INS", "IIS-Internetkommunikationseinstellungen (Microsoft)"], _
[".ISP", "IIS Internetdienstanbieter-Einstellungen (Microsoft)"], _
[".ITS", "Internetdokumentgruppe (Internet Document Set), Internet Translation"], _
[".JS", "JavaScript-Quellcode"], _
[".JSE", "Verschlüsselte JScript-Skriptdatei"], _
[".KSH", "UNIX-Shellskript"], _
[".INK", "Windows-Verknüpfungsdatei"], _
[".MAD", "Access-Modulverknüpfung (Microsoft)"], _
[".MAF", "Access (Microsoft)"], _
[".MAG", "Access-Diagrammverknüpfung (Microsoft)"], _
[".MAM", "Access-Makroverknüpfung (Microsoft)"], _
[".MAQ", "Access-Abfrageverknüpfung (Microsoft)"], _
[".MAR", "Access-Berichtsverknüpfung (Microsoft)"], _
[".MAS", "Gespeicherte Access-Prozeduren (Microsoft)"], _
[".MAT", "Access-Tabellenverknüpfung (Microsoft)"], _
[".MAU", "Media Attachment Unit"], _
[".MAV", "Access-Sichtverknüpfung (Microsoft)"], _
[".MAV", "Access-Datenzugriffsseite (Microsoft)"], _
[".MDA", "Access Add-In (Microsoft), MDA Access 2 Workgroup (Microsoft)"], _
[".MDB", "Access-Anwendung (Microsoft), MDB Access-Datenbank (Microsoft)"], _
[".MDE", "Access MDE-Datenbankdatei (Microsoft)"], _
[".MDT", "Access-Add-In-Daten (Microsoft)"], _
[".MDW", "Access-Arbeitsgruppeninformationen (Microsoft)"], _
[".MDZ", "Access-Datenbank-Assistent (Microsoft)"], _
[".MSC", "Steuerdatei (Microsoft) für das Microsoft Management Console-Snap-In"], _
[".MSH", "Microsoft Shell"], _
[".MSH1", "Microsoft Shell"], _
[".MSH2", "Microsoft Shell"], _
[".MSHXML", "Microsoft Shell"], _
[".MSH1XML", "Microsoft Shell"], _
[".MSH2XML", "Microsoft Shell"], _
[".MSI", "Windows Installer-Paket (Microsoft)"], _
[".MSP", "Update für den Windows-Installationsdienst"], _
[".MST", "Windows SDK Setup-Transformationsskript"], _
[".OPS", "Office-Profileinstellungsdatei"], _
[".PCD", "Visual Test (Microsoft)"], _
[".PIF", "Windows-Programminformationsdatei (Microsoft)"], _
[".PLG", "Developer Studio-Buildprotokoll"], _
[".PRF", "Windows-Systemdatei"], _
[".PRG", "Programmdatei"], _
[".PST", "MS Exchange-Adressbuchdatei, Persönliche Ordner-Datei in Outlook (Microsoft)"], _
[".REG", "Registrierungsinformationen/Schlüssel für Windows 95/Windows 98, Registrierungsdatendatei"], _
[".SCF", "Windows Explorer-Befehl"], _
[".SCR", "Windows-Bildschirmschoner"], _
[".SCT", "Windows-Skriptkomponente, Foxpro-Anzeige (Microsoft)"], _
[".SHB", "Windows-Dokumentverknüpfung"], _
[".SHS", "Shell Scrap-Objektdatei"], _
[".ps1", "Windows PowerShell"], _
[".ps1xml", "Windows PowerShell"], _
[".ps2", "Windows PowerShell"], _
[".ps2xml", "Windows PowerShell"], _
[".psc1", "Windows PowerShell"], _
[".psc2", "Windows PowerShell"], _
[".TMP", "Temporäre Datei/temporärer Ordner"], _
[".URL", "Internetspeicherort"], _
[".VB", "VBScript-Datei oder eine beliebige VisualBasic-Quelle"], _
[".VBE", "Verschlüsselte VBScript-Datei"], _
[".VBS", "VBScript-Skriptdatei, VBA-Skript"], _
[".VSMACROS", "Binärbasiertes Visual Studio .NET-Makroprojekt (Microsoft)"], _
[".VSW", "Visio-Arbeitsbereichsdatei (Microsoft)"], _
[".WS", "Windows-Skriptdatei"], _
[".WSC", "Windows Script-Komponente"], _
[".WSF", "Windows-Skriptdatei"], _
[".WSH", "Windows Script Host-Einstellungsdatei"], _
[".xnk", "Verknüpfung zu Öffentlichem Ordner in Exchange"]]
Global $key = 'HKEY_CURRENT_USER\Software\Microsoft\Office\'
Global $version = outlookVersion()
Global $keyend = ".0\Outlook\Security"
Global $val = "Level1Remove"
Global $hListView, $knownfiltypes

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

Switch $version
Case 0
MsgBox(-1, "", "Kein Outlook installiert")
Exit
Case 9
Global $vernum = "9" ;2000
Case 10
Global $vernum = "10" ;2002
Case 11
Global $vernum = "11" ;2003
Case 12
Global $vernum = "12" ;2007
Case 14
Global $vernum = "14" ;2010
EndSwitch

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

menu()

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

Func menu()
Local $exStyles = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_CHECKBOXES)
GUICreate("Outlook Dateianhänge Freischalten", 800, 600)
GUICtrlCreateLabel("Alle in dieser Liste befindlichen Dateitypen werden von Microsoft Outlook als Anhang blockiert.", 10, 10, 790, 20)
GUICtrlCreateLabel("Selektierte Dateitypen werden nach Ausführung nicht mehr blokiert, oder sind schon als solche deklariert worden.", 10, 30, 790, 20)
$ok = GUICtrlCreateButton("OK", 700, 450, 70, 40)
$cancel = GUICtrlCreateButton("abbrechen", 700, 500, 70, 40)
$markall = GUICtrlCreateButton("alle", 700, 50, 70, 40)
$unmarkall = GUICtrlCreateButton("keine", 700, 100, 70, 40)
$checkreg = GUICtrlCreateButton("Aktuell", 700, 150, 70, 40)
$hListView = GUICtrlCreateListView("", 10, 50, 665, 500)
_GUICtrlListView_SetExtendedListViewStyle($hListView, $exStyles)
_GUICtrlListView_AddColumn($hListView, "Dateityp", 90, 0)
_GUICtrlListView_AddColumn($hListView, "Beschreibung", 550, 0)
_GUICtrlListView_AddArray($hListView, $blockedfiltypes)
_checkreg()
GUISetState()

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $ok
_doit()
$progende = MsgBox(4, "", "Werte gesetzt Soll das Programm beendet werden ?")
If $progende = 6 Then Exit
Case $markall
_checkall(True)
Case $unmarkall
_checkall(False)
Case $checkreg
_checkall(False)
_checkreg()
Case $GUI_EVENT_CLOSE, $cancel
Exit
EndSwitch
WEnd
EndFunc ;==>menu

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

Func _checkreg()
Local $allowedfiletypes
$allowedfiletypes = RegRead($key & $vernum & $keyend, $val)
$knownfiltypes = StringSplit($allowedfiletypes, ";")
Local $x, $wert1
For $i = 1 To $knownfiltypes[0]
$wert1 = $knownfiltypes[$i]
For $x = 0 To UBound($blockedfiltypes - 1)
$wert2 = _GUICtrlListView_GetItemText($hListView, $x)
If $wert1 = $wert2 Then _GUICtrlListView_SetItemChecked($hListView, $x)
Next
Next
EndFunc ;==>_checkreg

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

Func _checkall($onoff)
For $i = 0 To UBound($blockedfiltypes - 1)
_GUICtrlListView_SetItemChecked($hListView, $i, $onoff)
Next
EndFunc ;==>_checkall

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

Func outlookVersion()
Local $objoutlook = ObjCreate("outlook.Application")
If Not IsObj($objoutlook) Then Return 0
$objoutlook.Quit
Return $objoutlook.Version
EndFunc ;==>outlookVersion

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

Func _doit()
Local $newreg = ""
For $x = 0 To UBound($blockedfiltypes - 1)
If _GUICtrlListView_GetItemChecked($hListView, $x) Then
$newreg &= _GUICtrlListView_GetItemText($hListView, $x) & ";"
EndIf
Next
$newreg = StringTrimRight($newreg, 1)
RegWrite($key & $vernum & $keyend, $val, "REG_SZ", $newreg)
EndFunc ;==>_doit

[/autoit]

pretrojaner

alles jute zu b-day

pretrojaner

Zitat von BugFix

Danach habe ich bisher vergeblich gesucht. :wacko:

Das Setzten der Dateiinformationen müsste im Grunde auch irgentwie gehen, vieleicht mal die AutoIt3Wrapper.au3 genauer unter die Lupe nehmen, da werden doch meines Wissens diese Informationen auch in die Datei geschrieben, zumindest in das eigene script.

gruß
Pre

pretrojaner

Einen Herzlichen GW auch von mir.

GRuß
Pre

pretrojaner

na vieleicht musste es ja nicht ganz so kompliziert machen, es gibt ein Commandozeilentool -> PSCP <- dieses Findest du auf dieser Seite -> Link <-

dieses funktioniert auf SFTP basis, vieleicht lässt sich damit schon was bewerkstelligen. via autoit . sprich stoutread und write und co.

gruß
Pre

pretrojaner

Zitat von Sprenger120

[autoit]
MsgBox(0,"","Hallo:" & @UserName & @CRLF & "Das ist eine Macro Demo" & @CRLF & "Pfad zu den Eigenen Dokumenten: " & @MyDocumentsDir)
[/autoit]
Das ist warscheinlich was su suchst.

nein das ist es nicht was ich suche

Zitat von blubbstar

Du suchst eine sogenante HardwareID, im Englischen findest dazu ein paar Themen.

ja das schon eher das was ich suche, habe das Englische forum schon etwas durchstöbert,& scriptomatic und co durchgewälzt, aber nix was wirklich befriedigend und zuverlässig ist.

Noch jemand vieleicht eine idee ?

Gruß
Pre

pretrojaner

hallo leutz,

ich suche für mein Project eine Konstante die immer die selbe bleibt jedoch von Pc zu PC verschieden. Wie z.b. die Mac adresse einer Netzwerkkarte. Gibt es noch mehr solcher Konstanten ?
wenn ja bin ich für alle forschläge offen.

Grüße
Pre

pretrojaner

String-Variante:
Mittelwert: 0.0158007892416017
Minimum: 0.0152745428410394
Maximum: 0.0320850732303397

Bit-Variante:
Mittelwert: 0.0157533442928887
Minimum: 0.0152745428410394
Maximum: 0.0393383477637941

pretrojaner

Zitat von PokerFace

Ich hatte das auch.
Da hab ich ganz einfach den Registry Schlüssen eingetragen^^
Der sagt dir ja welcher fehlt.
Also erstellst du den, und gibst dem als Wert den Pfad zum Include Ordner.
Dann läufts einwandfrei.

Nein das ist es nicht. habe aber des Rätzels Lösung gefunden.:
Die Schreibrechte in dem Ordner in der diese ini erstellt werden soll (@programmdir\AutoIt3\SciTE\OrganizeIncludes) , sind durch die UAC auf den Administrator beschränkt.
Ich weis das es vorher auch funktioniert hat, vermute das die letzten Windows Updates damit was zu tun haben könnten, will es aber nun nicht nachvollziehen da ich meinen rechner nicht nochmal installieren möchte.

Jedoch habe ich auch noch andere diskrepanzen festgestellt, bezüglich #RequireAdmin und 64 bit OS

Habe einfach dem OI Script Admin rechte eingeräumt und siehe da es klappt einwandfrei.

pretrojaner

Hallo Leutz,

es wurd mal wieder zeit meinen Rechner neu zu installieren, Win 7 pro 64
nach der installation von Autoit 3.3.6.1 der beta 3.3.5.6 , Site
versuche ich das Organizeincludes zu installieren, bzw, installieren geht ja, mir geht es um die Ausführung.
dabei stoße ich auf 2 Fehlermeldungen
die erste in der console:
!No udf path found : RegRead("HKCU\Software\AutoIt v3\Autoit", "Include")
und die 2. danach in ein er msgbox, das die includes_Release.ini fehlen täte, vermute mal weil der regpfad nicht gefunden wird, habe in der registrierung nachgeschaut und auch hier keinen eintrag zu diesem reg key gefunden.

kann mir jemand da weiter helfen ?

gruß
Pretrojaner

pretrojaner

der total commander ist eine copie( wohl bemerkt verbessert ), das orignial hies damals Norton Commander, als es das gab würde dir sicher noch der Hintern gepudert , Der Norton Commander war noch ein DOS tool da war noch alles gut, nix mit bluescreen !!, mit dem erscheinen von windows als OS , gab es dann auch viele versuche das Dos Tool zu kopieren, Windows fähig zu machen. der Total commander hat sich da am Erfolgreichsten durchgeschlagen.

gruß
Pretrojaner

pretrojaner

[Blockierte Grafik: http://lh3.ggpht.com/_HkoVI5-w74E/S…y%20desktop.jpg]

etwas größer:
http://picasaweb.google.de/lh/photo/5Ygaa…feat=directlink

Beiträge von pretrojaner

Computer-Info

[UDF] Virtual PC erkennung (Vmware, VirtualBox, VirtualPc und Qemu )

Passwortfeld

Passwortfeld

erkennung der Programmausführung.

wie realisiere ich eine einen HTTP Post

wie realisiere ich eine einen HTTP Post

wie realisiere ich eine einen HTTP Post

Blockierte Dateianhänge in Outlook freischalten

Ubuntu hat Geburtstag

Erweiterte Dateiinfo (eine Datei od. alle eines Ordners)

Happy Birthday Progandy

WinSCP in AutoIt

suche Konst. Wert jedoch verschieden

suche Konst. Wert jedoch verschieden

String-Funktionen sind wirklich sauschnell :D

was habe ich falsch gemacht ?

was habe ich falsch gemacht ?

Wie sieht euer Desktop aus?

Wie sieht euer Desktop aus?