Danke jetzt Funktioniert es einwandfrei
Beiträge von Eistee
-
-
$Pic1 = GUICtrlCreatePic("C:\Bild.bmp", 0, 0, 316, 348, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$GUI_DISABLE))
So Siehts jetzt aus immer noch das Gleiche Hm... geht wohl nicht
-
Ich möchte das jedoch nicht gray
$GUI_DISABLE Das Steuerelement wird deaktiviert, grau dargestellt und kann nicht benutzt werden <------------------Steht so in der Hilfe
-
Hallo Comunity ich habe ein grosses (für euch warscheinlich kleines) Problem in meiner Gui Welche ich mit Koda erstellt habe Funktionieren die Buttons Nicht kann mir da Bitte jemand helfen ?
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]FileInstall("C:\Users\Eistee\Desktop\Bild.bmp", "C:\Bild.bmp")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
FileInstall("C:\Users\Eistee\Desktop\Resolution.exe", @ScriptDir &"\Resolution.exe")
$File1 = FileRead("notice.txt")$Form1_1 = GUICreate("Test", 318, 350, 470, 262)
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x000000)
$Pic1 = GUICtrlCreatePic("C:\Bild.bmp", 0, 0, 316, 348, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Edit1 = GUICtrlCreateEdit("", 24, 152, 282, 153)
GUICtrlSetData(-1, $File1)
$Button1 = GUICtrlCreateButton("Start", 24, 312, 59, 27, 0)
$Button2 = GUICtrlCreateButton("Setting", 88, 312, 75, 27, 0)
$Button3 = GUICtrlCreateButton("Website", 168, 312, 75, 27, 0)
$Button4 = GUICtrlCreateButton("Exit", 248, 312, 59, 27, 0)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_1()
Case $Button2
_2()
Case $Button3
_3()
Case $Button4
_4()
EndSwitch
WEndFunc _1()
[/autoit]
Run("start.bat")
Sleep(500)
Exit
EndFunc
Func _2()
MsgBox(1,"Resolution", "Here you can change the Resolution, Other settings Change InGame Please")
Run("Resolution.exe")
Exit
EndFunc
Func _3()
ShellExecute("http://google.de")
Sleep(500)
Exit
Endfunc
Func _4()
Exit
EndFuncMfg Eistee
-
ähm Wir haben grosse Laufwerksbuchstaben
nicht so
[autoit]c:\vnc.bmp
[/autoit]sondern so
[autoit]C:\vnc.bmp
[/autoit]P.s. Im normalfall muss man nichts freischalten
Mfg Eistee
-
Klemm Xampp Dahinter Das ist Ein programm das deinen Pc auf Port 3306 Als Server konfiguriert somit kannste z.B. ne Homepage Hosten oder Ähnliches und das dann mit deinem script kombinieren
-
Wie du sicher auch selbst merkst ist es sehr schwer ne Ferndiagnose zu erstellen
wärst du so freundlich den bisher geschriebenen script Inklusiver der Textdateien mit Anzuhängen Dann kann ich erstmal damit RumspielenMfg Eistee
-
[autoit]
$icon_ica = GUICtrlCreateIcon(@ScriptDir &"\vnc.bmp", "", 340, 85, 16, 16)
[/autoit]
GUICtrlSetState($icon_ica, $GUI_SHOW)Mfg Eistee
P.s.
Ich würde es eher so lösen :
Spoiler anzeigen
[autoit]FileInstall("PfaddesBildes\vnc.bmp", "C:\vnc.bmp") ;Beim ersten musste Pfad vom Bild Eingeben Und Beim Zweiten wo´s Hin soll
[/autoit]
$icon_ica = GUICtrlCreateIcon("C:\vnc.bmp", "", 340, 85, 16, 16)
GUICtrlSetState($icon_ica, $GUI_SHOW)Und wegen Vista ,sagen wir mal so bei den meissten sachen Stört sich Autoit nicht wirklich drann (Ich verwende auch vista ^^) Ob es bei grösseren sachen Probleme Verursacht ist eine andere Frage
Mfg Eistee
-
Eine rolle spielt er insofern das ich vor habe diese zahlen anschliessen dafür zu verwenden um zu gucken ob sich die file.list geändert hatt da mein script nur ausgeführt werden soll wenn sich der inhalt geändert hatt dafür werden die zahlen benötigt sonst sind se unwichtig
Mfg Eistee
-
Ok
PseudoCodeFileRead (@scriptdir &"\Foldersandunderfolders+files")
Filewrite file.list(alldirectorysandfiles+wechselnderzahlencode)
Beispeil : Im scriptdir ist ein ordner data in diesem ist ein ordner textures in dem Sind 3 filles und zwar 1.txt,2.txt,3.txt
das script erstellt nun eine Textdatei in die schreibt er Auf line 1 :
/data/textures/1.txt,3325566757456
Line 2
/data/textures/2.txt,86767583464235
Line 3
/data/textures/3.txt,4764579756856794568778
Ich hoffe das versteht ihr unter Pseudocode
Info: Wenn ihr xampp aufm Pc Habt dann legt diesen script in den Prdner htdocs erstellt mehere Unterordner in diesem ordner erstellt in paar unterordnern weitere Unterordner legt in jeden ordnerpar files dann ruft im browser http://127.0.0.1 auf und klickt dan auf dieses script
passwort ist dann kalonline und wartet bis da steht Done dan geht wieder in das verzeichnis öffnet die neue datei file.list und schon seht ihr was genau passiert -
Danke pethebee und bugfix aber ich komme auch mit dem Manual nicht weiter Php ist echt zu kompliziert füt mich ich würde das auch lieber über Autoit machen habe aber keine ideen wie das realisierbar wäre und ich möchte das Forum nicht mit Bitte Bitte macht mir nen Script zumüllen ich hoffe ihr findet nen weg
Mfg Eistee
-
Habe es mal mit beiden Tipps angepasst er macht jetzt keine Fehler mehr aber die punkte sind noch immer davor...
Spoiler anzeigen
<?php
class Boot
{
private $i = 0;/**
* Create the script boot file.
*
* @param string $FILEN
* @param int $mode
* @return bool
*/
public function Create($FILEN, $mode)
{
$dir = "./";
$dir2 ="/";if(is_dir($dir))
{
$Handle = opendir($dir);
if($Handle)
{
$FHandle = fopen($FILEN, 'w');
$this->ReadDir($Handle, $dir, $FHandle, $mode);
//Cut trails
$temps = file_get_contents($FILEN);
$temps[strlen($temps) - 1] = "";
file_put_contents($FILEN, $temps);}
}return true;
}/**
* Read all files in a given directory.
*
* @param resource $Handle
* @param string $dir
* @param resource $FHandle
* @param int $mode
* @return bool
*/
private function ReadDir($Handle, $dir, $FHandle, $mode)
{while (($file = readdir($Handle)) !== false)
{if(is_dir($dir.$file) && $file != ".." && $file != ".")
{
$NHandle = opendir($dir.$file."/");
if($NHandle)
{
$this->ReadDir($NHandle, $dir.$file."/", $FHandle, $mode);}
}
elseif (is_file($dir.$file))
{
$Skip = array(
'file.list',
'filelist.php'
);
if($mode == 1)
{
if($this->FileExt($file) == "zip" && !array_key_exists($file, $Skip) && $file[0] != '_')
{
$data = $this->FileName($file) . "," . filesize($dir.$file) . "*";
if(substr($data, 0,1) == ".")
{
$dat = substr($data, 1);
}else{
$dat = $data;
}
fwrite($FHandle, $dat);
$this->i++;}
}
else
if(!$this->CheckName($file, $Skip) && $file[0] != '_')
{
$data = $dir.$file . "," .md5_file($dir.$file);
$dat = "$data\r\n";
fwrite($FHandle, $dat);
$this->i++;}
}
else
{ // Then what is it? oO
continue;
}}
closedir($Handle);
return true;
}/**
* Returns the extension of the file name
*
* @param string $file
* @return string
*/
private function FileExt($file)
{
$TEMP = explode('.', $file);
return $TEMP[count($TEMP) - 1];
}private function FileName($file)
{
$TEMP = explode('.', $file);
return $TEMP[0];
}/**
* Loads a boot file.
*
* @param string $FILEN
* @return bool
*/
public function Load($FILEN)
{
$fp = fopen("list.txt", 'r');
$TEMP['RESOURCE'] = fopen($FILEN, 'r');$i = 0;
while (!feof($TEMP['RESOURCE']))
{
$TEMP['FILE'][$i] = fgets($TEMP['RESOURCE'], 1024);
$i++;
}for($c = 0; $c < count($TEMP['FILE']); $c++)
{
include($TEMP['FILE'][$i]);
}unset($TEMP);
return true;
}private function CheckName($file, $array)
{
for($i = 0; $i < count($array); $i++)
{
if($file == $array[$i])
{
return true;
break;
}
}return false;
}}
if(isset($_POST['submit']) && $_POST['pa'] == "kalonline")
{
$boot = new Boot();
$boot->Create("file.list", 0);
echo "Done!";
}
?>
<form method="POST" action="">
<input type="password" maxlength="50" name="pa">
<input type="submit" name="submit" value="Do it."></form>
-
ok Danke dir sehr Bugfix
-
Hilft es dir wenn ich dir dei datei anhänge ? Hm.. ich mach das mal
-
Ne leider nicht möglich
Parse error: syntax error, unexpected T_ELSE in C:\Users\Eistee\Desktop\test\xampp\htdocs\yourhost.com\updater\filelist.php on line 87
-
oben ist doch der php code da da steht ja nicht ./notice.txt
-
Hi Comunity habe hier einen php script der ausliest was in seinem verzeichnis ist und der dann eine datei mit dem namen file.list erstellt das Problem an Sich ist dabei das eine erstellte zeile so aussieht : ./notice.txt
kann einer von euch das ändern damit danach nicht steht : ./notice.txt sondern : /notice.txt ?
Spoiler anzeigen
<?php
class Boot
{
private $i = 0;/**
* Create the script boot file.
*
* @param string $FILEN
* @param int $mode
* @return bool
*/
public function Create($FILEN, $mode)
{
$dir = "./";if(is_dir($dir))
{
$Handle = opendir($dir);
if($Handle)
{
$FHandle = fopen($FILEN, 'w');
$this->ReadDir($Handle, $dir, $FHandle, $mode);
//Cut trails
$temps = file_get_contents($FILEN);
$temps[strlen($temps) - 1] = "";
file_put_contents($FILEN, $temps);}
}return true;
}/**
* Read all files in a given directory.
*
* @param resource $Handle
* @param string $dir
* @param resource $FHandle
* @param int $mode
* @return bool
*/
private function ReadDir($Handle, $dir, $FHandle, $mode)
{while (($file = readdir($Handle)) !== false)
{if(is_dir($dir.$file) && $file != ".." && $file != ".")
{
$NHandle = opendir($dir.$file."/");
if($NHandle)
{
$this->ReadDir($NHandle, $dir.$file."/", $FHandle, $mode);}
}
elseif (is_file($dir.$file))
{
$Skip = array(
'file.list',
'filelist.php'
);
if($mode == 1)
{
if($this->FileExt($file) == "zip" && !array_key_exists($file, $Skip) && $file[0] != '_')
{
$data = $this->FileName($file) . "," . filesize($dir.$file) . "*";
$dat = $data;
fwrite($FHandle, $dat);
$this->i++;
}
}
else
if(!$this->CheckName($file, $Skip) && $file[0] != '_')
{
$data = $dir.$file . "," .md5_file($dir.$file);
$dat = "$data\r\n";
fwrite($FHandle, $dat);
$this->i++;}
}
else
{ // Then what is it? oO
continue;
}}
closedir($Handle);
return true;
}/**
* Returns the extension of the file name
*
* @param string $file
* @return string
*/
private function FileExt($file)
{
$TEMP = explode('.', $file);
return $TEMP[count($TEMP) - 1];
}private function FileName($file)
{
$TEMP = explode('.', $file);
return $TEMP[0];
}/**
* Loads a boot file.
*
* @param string $FILEN
* @return bool
*/
public function Load($FILEN)
{
$fp = fopen("list.txt", 'r');
$TEMP['RESOURCE'] = fopen($FILEN, 'r');$i = 0;
while (!feof($TEMP['RESOURCE']))
{
$TEMP['FILE'][$i] = fgets($TEMP['RESOURCE'], 1024);
$i++;
}for($c = 0; $c < count($TEMP['FILE']); $c++)
{
include($TEMP['FILE'][$i]);
}unset($TEMP);
return true;
}private function CheckName($file, $array)
{
for($i = 0; $i < count($array); $i++)
{
if($file == $array[$i])
{
return true;
break;
}
}return false;
}}
if(isset($_POST['submit']) && $_POST['pa'] == "kalonline")
{
$boot = new Boot();
$boot->Create("file.list", 0);
echo "Done!";
}
?>
<form method="POST" action="">
<input type="password" maxlength="50" name="pa">
<input type="submit" name="submit" value="Do it."></form>
-
Hallo Tremue Danke für den Tipp
Ich habe jedoch ein problem mein script Funktionirt nicht zu 100 % denn er lädt die datei nicht Herunter weis Hier einer an welcher stelle mein Fehler liegt ?Spoiler anzeigen
[autoit]#include<Array.au3>
[/autoit] [autoit][/autoit] [autoit]
#include<File.au3>
$Ip = ("http://127.0.0.1/yourhost.com/updater")
Local $meinarray
InetGet($Ip &"\file.list",@DesktopDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("test.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("test.txt", $split[$i] & @crlf)
Next
$filename1 = @ScriptDir & '\test.txt'
$filename2 = @ScriptDir & '\test1.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
Exit$1 = FileReadLine($filename1,1)
[/autoit]
$2 = FileReadLine($filename2,1)
Inetget($Ip&$1,@ScriptDir &$2)Der Array $1 enthält ./notice.txt und der Array $2 für .\notice.txt jedoch lädt er die notice.txt nicht in das Desktop was habe ich übersehen ?
Edit: Habe das problem gefunden Es Liegt an dem . vor dem text leider muss man den punkt manuell entfernen...
-
Xenobiologist ich danke dir für die tolle Hilfe
könntest du mir die zeilen kommentieren ? damit ich weis welcher Befehl in dieser Schleife für was steht ? dann kann ich das un Zukunft selbst verwenden Danke
-
mit filewritefromarray gibt es nur eine 2 zurück und wie man eine Schleife Verwendet habe ich nicht raus kannste mir da helfen ?
Mfg Eistee