Beiträge von XTC99

XTC99

Hallo vielleicht kann mir wer bei meinen Script helfen.

Mein Script soll von 1 bis 20 Zählen aber die Zahlen 3,6,7,12,17 überspringen.

Leider ist irgenwo der Wurm drinnen, weil er überspringt zwar meine Zahlen meiner Excludelist allerdings wiederholt er die anderen Zahlen

Vielen Dank für eure Hilfe

Spoiler anzeigen

[autoit]

$start = 1
$end = 20
$exclude = '3,6,7,12,17'
$exclude_array = StringSplit($exclude,',')

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

for $i = $start to $end
for $e = 1 to $exclude_array[0]
if ($i = $exclude_array[$e]) Then
Else
MsgBox (0,0,$i)
EndIf
Next
Next

[/autoit]

XTC99

Danke für eure Hilfe, hab den Downloader neu erstellt und unter Scripte veröffentlicht

AutoIt Hilfe Updater

XTC99

Hallo hab mich ein bischen mit den Regulären Ausdrücken beschäftigt, und rausgekommen ist dieser AutoIt Hilfe Updater.
Es wird nur die 7za.exe benötigt (http://downloads.sourceforge.net/sevenzip/7za465.zip)

Vielleicht habt ihr ja Verbesserungsvorschläge.

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.4.0
Author: XTC99

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

Script Function: Update Autoit Help in German
#ce ----------------------------------------------------------------------------
#RequireAdmin
#include <INet.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form
$Form1 = GUICreate("AutoIt Hilfe Updater", 478, 188, -1, -1)
$TopLabel = GUICtrlCreateLabel("AutoIt Hilfe Updater", 144, 8, 184, 28)
$FileName_Label = GUICtrlCreateLabel("", 16, 48, 450, 17)
$Status_Label = GUICtrlCreateLabel("", 16, 104, 450, 17)
$Progress_bar = GUICtrlCreateProgress(16, 72, 450, 17)
$Update_Button = GUICtrlCreateButton("Update", 56, 144, 75, 25, $WS_GROUP)
$Exit_Button = GUICtrlCreateButton("Exit", 336, 144, 75, 25, $WS_GROUP)
GUICtrlSetFont($TopLabel, 15, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

dim $install_autoit_path = ''
_SearchParthOfAutoit()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Update_Button
_Analyse_PHP_Files()
Exit
Case $Exit_Button
Exit
EndSwitch
WEnd

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

Func _SearchParthOfAutoit()
$AutoitRegKey = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AutoIt3Script\Shell\Compile\Command", "")
if ($AutoitRegKey <> "") Then
local $autoit_path_array = StringRegExp($AutoitRegKey, "((?i:[a-z]){1}:+\\.*)\$?i:aut2exe\$",3)
dim $install_autoit_path = $autoit_path_array[0]
EndIf
EndFunc

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

Func _Analyse_PHP_Files()
local $autoit_downloads_php_url = 'http://translation.autoit.de/autoitinfo/autoit_downloads.php'
local $autoit_hilfe_php_url = 'http://translation.autoit.de/hilfe.php'

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

local $autoit_downloads_php = (_INetGetSource($autoit_downloads_php_url))
local $autoit_hilfe_php = (_INetGetSource($autoit_hilfe_php_url))

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

local $last_help_version = StringRegExp($autoit_downloads_php, "-([0-9,\_]+).zip",3)
local $autoit_german_help = StringRegExp($autoit_hilfe_php, "='(h.*" & $last_help_version[0] & ".zip*)'>",3)

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

For $i=0 to (UBound($autoit_german_help)-1)
local $FileNameArray = StringSplit($autoit_german_help[$i], "/")
local $FileURL = $autoit_german_help[$i]
local $FileName = $FileNameArray[(UBound($FileNameArray)-1)]
_CheckforNecessaryUpdate ($FileURL,$FileName)
Next
EndFunc

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

Func _CheckforNecessaryUpdate ($FileURL,$FileName)
local $FileSizeURL = InetGetSize ($FileURL)
if FileExists (@ScriptDir & "\" & $FileName) Then
local $FileSizeHD = FileGetSize(@ScriptDir & "\" & $FileName)
if ($FileSizeHD = $FileSizeURL) Then
MsgBox(64,"Autoit Updater",$FileName & " ist aktuell")
Else
_DownloadFile ($FileURL,$FileName)
EndIf
Else
_DownloadFile ($FileURL,$FileName)
EndIf
EndFunc

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

Func _DownloadFile ($FileURL,$FileName)
GUICtrlSetData($FileName_Label, $FileName )
local $FileSizeURL = InetGetSize ($FileURL)
local $Download_Handle = InetGet($FileURL,@ScriptDir & '\' & $FileName,1,1)
local $InetGetInfo_Data = InetGetInfo($Download_Handle)
local $InetGetBytesRead = $InetGetInfo_Data[0]
local $Percentage = 0
While $InetGetBytesRead < $FileSizeURL
local $InetGetInfo_Data = InetGetInfo($Download_Handle)
local $InetGetBytesRead = $InetGetInfo_Data[0]
local $Percentage = $InetGetBytesRead/$FileSizeURL*100
GUICtrlSetData($Progress_bar, $Percentage)
GUICtrlSetData($Status_Label, Round($InetGetBytesRead / 1024 ) & " of " & Round($FileSizeURL / 1024) & " KB")
Sleep(500)
WEnd
local $Download_Complete = $InetGetInfo_Data[2]
If ($Download_Complete = 'true') Then
ProgressOff()
InetClose($Download_Handle)
_UnzipHelpToAutoitDir ($FileName)
EndIf
EndFunc

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

Func _UnzipHelpToAutoitDir ($FileName)
$helptyp = StringRegExp($FileName, '\A([A-Z,a-z,0-9].*?)-',3)
$extractpath = ''
if $helptyp[0] = "AutoIt" Then
local $extractpath = $install_autoit_path
ElseIf $helptyp[0] = "au3" Then
local $extractpath = $install_autoit_path & '\SciTE\api'
ElseIf $helptyp[0] = "Beispiele" Then
local $extractpath = $install_autoit_path & '\Examples'
EndIf
if ($extractpath <> '') Then
EnvSet("path", (EnvGet("path") &";" & @ScriptDir & "\;"))
RunWait(@ComSpec & ' /c 7za.exe x "'& @ScriptDir & '\' & $FileName &'" -y -o"' & $extractpath & '"',@ScriptDir,@SW_HIDE)
EndIf
EndFunc

[/autoit]

XTC99

Hi, hab mir ein Script geschrieben der mir immer die aktuelle AutoIt Hilfe in Deutsch downloadet.
Leider bekomm ich immer folgenden Fehler. Weiss aber nicht wo der Fehler liegen könnte.

Vielen Dank

Spoiler anzeigen

Code

Z:\_Programme\AutoIt v3.3.4.0\update_autoit_help.au3(35,24) : ERROR: undefined macro.
		While @InetGetActive =
		~~~~~~~~~~~~~~~~~~~~~^
Z:\_Programme\AutoIt v3.3.4.0\update_autoit_help.au3(36,36) : ERROR: undefined macro.
			$Percentage = @InetGetBytesRead *
			~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Z:\_Programme\AutoIt v3.3.4.0\update_autoit_help.au3(37,62) : ERROR: undefined macro.
			ProgressSet($Percentage,"Downloaded " & @InetGetBytesRead &
			~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Z:\_Programme\AutoIt v3.3.4.0\update_autoit_help.au3 - 3 error(s), 0 warning(s)

Spoiler anzeigen

[autoit]

#Include <string.au3>
#include <array.au3>
#include <INet.au3>

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

dim $url = 'http://translation.autoit.de/autoitinfo/autoit_downloads.php'
dim $linkteil_1 = "http://translation.autoit.de/autoitinfo/hilfedateien"
dim $linkteil_2 = '.zip'
dim $downlaodfile = "true"

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

local $html = (_INetGetSource($url))
local $gesucht = _StringBetween($html, $linkteil_1, $linkteil_2)
if (@Error = 0) Then
local $au3_chm = $linkteil_1 & $gesucht[0] & $linkteil_2
local $link_elemente = StringSplit($au3_chm, "-")
local $au3_api = $linkteil_1 & '/au3-Stand-' & $link_elemente[($link_elemente[0])]
_DownloadFile ($au3_chm)
_DownloadFile ($au3_api)
EndIf

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

Func _DownloadFile ($FileURL)
$downlaodfile = "true"
$FileURLSplit = StringSplit($FileURL , "/")
$FileName = $FileURLSplit[($FileURLSplit[0])]
$FileSizeURL = InetGetSize($FileURL)
if FileExists (@ScriptDir & "\" & $FileName) Then
$FileSizeHD = FileGetSize(@ScriptDir & "\" & $FileName)
if ($FileSizeHD = $FileSizeURL) Then
local $downlaodfile = "false"
MsgBox(64,"Autoit Updater",$FileName & " ist aktuell")
EndIf
EndIf
if ($downlaodfile <> "false") Then
InetGet($FileURL,$FileName,0,1)
ProgressOn("","")
While @InetGetActive = 1
$Percentage = @InetGetBytesRead * 100 / $FileSizeURL
ProgressSet($Percentage,"Downloaded " & @InetGetBytesRead & " of " & $FileSizeURL & " bytes","Downloading " & $FileName )
Sleep(250)
Wend
ProgressOff()
EndIf
EndFunc

[/autoit]

XTC99

Ja unter HilfeDeutsch_Q unten gibt die neue API

XTC99

Hi, bei Windows 7 gebe es sogar die Möglichkeit es über USB-Stick zu installieren.

Gibt sogar ein eigenes Programm von Microsoft

http://store.microsoft.com/Help/ISO-Tool
http://www.chip.de/downloads/Wind…l_38589636.html

Funktioniert sogar schneller als über DVD-Installation

XTC99

OK Edel, @ progandy

schaut geil aus, mir ist es ein bischen zu kompliziert.

XTC99

Vielen Dank für eure Hilfe.
war nur ein Teil einer Wette
wieviel Zeilen SourceCode man braucht um eine Ordnerstruktur von 1/1/1/1 bis 9/9/9/9
zu erstellen.

XTC99

]Hallo wollte mir eine PIN Verzeichniss Struktur erstellen funktioniert soweit ganz gut,
leider wird auch immer ein Verzeichniss mit dem Name 10 erstellet obwohl ich das mit der If Abfrage
abfangen wollte. Also irgendwo ist noch ein Denkfehler drinnen. Vielleicht findet ihr den Fehler

Danke

Spoiler anzeigen

[autoit]

dim $dir_temp = @ScriptDir & '\Pinfolder'
dim $1 = 1
dim $2 = 1
dim $3 = 1
dim $4 = 1

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

for $1 = 1 to 9
if $1 < 10 Then
DirCreate($dir_temp & '\' & $1 & '\' & $2 & '\' & $3 & '\' & $4)
for $2 = 1 to 9
if $2 < 10 Then
DirCreate($dir_temp & '\' & $1 & '\' & $2 & '\' & $3 & '\' & $4)
for $3 = 1 to 9
if $3 < 10 Then
DirCreate($dir_temp & '\' & $1 & '\' & $2 & '\' & $3 & '\' & $4)
for $4 = 1 to 9
if $3 < 10 Then
DirCreate($dir_temp & '\' & $1 & '\' & $2 & '\' & $3 & '\' & $4)
EndIf
Next
EndIf
Next
EndIf
Next
EndIf
Next

[/autoit]

XTC99

Super Danke

XTC99

Super gleich testen.

Ein vorweihnachtliches Geschenk

XTC99

Mit welchen Befehl kann ich abfragen ob ein Button activ ist

Viel Dank

XTC99

Die letzte Version ist ja auch zu Weihnachten rausgekommen.
Und zur Zeit unterstützt ja nur die Beta Win7 x64 komplett.

Ciao

XTC99

Hier schnell gebaut

[autoit]

if ($CmdLine[0] > 0) then
local $username = $CmdLine[1]
local $password = $CmdLine[2]
local $batchfile = $CmdLine[3]

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

RunAsWait($username, @ComputerName, $password, 0, @ComSpec & ' /c ' & $batchfile, @SystemDir,@SW_HIDE)
if (@error <> 0) Then
MsgBox (64,'ERROR','Wrong Password')
EndIf
Else
MsgBox (64,'Wrong Parameter',@ScriptName & ' <user> <password> <batchfile>')
EndIf

[/autoit]

XTC99

Manchmal seh ich den Wald vor lauter Bäumen nicht.

Vielen Dank

XTC99

Hallo erhalte beim überprüfen einer INI Datei immer den Fehler (Nur bei fehlenden Ini einträgen)
"Subscript used with non-Array variable"
ist es möglich die Variable zu überprüfen lassen, ob es sich um eine Array oder einen String handelt.

Danke

XTC99

Also ich habs so gelöst

[autoit]

EnvSet("path", (EnvGet("path") &";" & @ProgramFilesDir & "\7-Zip;")) ;7z und 7za nur über Path Aufruf möglich
$errorlevel = RunWait(@ComSpec & ' /c 7z.exe x "'& @ScriptDir & '\settings.7z" -y -o"' & @TempDir & '\"')

[/autoit]

XTC99

Hallo geht so

[autoit]

RunWait(@COMSPEC & " /k " & @ScriptDir & "\wake.exe " & $mac & " 193.196.108.255")

[/autoit]

Mehr Hilfe mit cmd -> cmd /?

XTC99

Schau dir einmal den Windows Befehl "netsh" an mit dem kann man alle Netzwerkeinstellugen per cmd steuern.

XTC99

Also KGBSpy kann man so installieren das das Programm nicht einmal mehr unter den Prozessen aufgelistet wird.

Beiträge von XTC99

Denkfehler: Zählen aber Zahlen einer Exclude Liste überspringen

Fehler im Autoit Hilfe Downloader

AutoIt Hilfe Updater

Fehler im Autoit Hilfe Downloader

api für scite

[gelöst] Windows 7 Installationsproblem

PIN Verzeichniss Struktur erstellen

PIN Verzeichniss Struktur erstellen

PIN Verzeichniss Struktur erstellen

Mit welchen Befehl kann ich abfragen ob ein Button activ ist

Wird es eine neue Autoit Final Version zu Weihnachten geben ?

Mit welchen Befehl kann ich abfragen ob ein Button activ ist

Wird es eine neue Autoit Final Version zu Weihnachten geben ?

Problem bei: Erstellen einer .exe die eine Batch mit Adminrechten starten soll (die Auswahl der Batch soll über einen Parameter erfolgen)

Gibt es einen Befehl um zu erkennen ob eine Variable ein String oder ein Array ist ?

Gibt es einen Befehl um zu erkennen ob eine Variable ein String oder ein Array ist ?

Selbstentpackendes 7z Archiv entpacken

Bei Run Eingabeaufforderung nicht schließen

DNS Server ändern

Browserverlauf