Er zeigt ein fehler in deiner dll an.
Beiträge von Sirocool
-
-
wie gesagt würde es gerne testen nur fehlt diese datei #include "BlockInputEx.au3" in zeile 16.
-
So nach langer Zeit melde ich mich auchmal wieder erstmal muss ich sagen zeiht einfach nur ginial aus weiter so.
Das wars schon und weiterhin viel Spaß.
-
Hai bei mir flackert es ganz schön dadurch kommt dein menü oben garnicht mehr hinterher.
Ansonsten Styl und der aufbau sieht gut aus. -
Frag mal Jam00 der kann dir dabei helfen der hatte mal so was mit mirgebaut und getestet ging auch alles aber ist sein Projekt gewesen.
-
Hallo liebe Leute,
nach langer Zeit melde ich mich auch mal wieder zu worte, und zwar habe ich eine frage wie bekommt man es hin das man einen rtmpt-dateistream in autoit abspielen kann.
Ich habe mir zwar schon dies hier runtergezogen und diesen befehle hierSpoiler anzeigen
rtmpdump.exe -r rtmpt://cp87869.live.edgefcs.net:1935/live/us_300@21006 --quiet | "C:\Program Files\VideoLAN\VLC\vlc.exe" -
in einer cmd datei eingeben aber da kommt nichts, müsste eigendlich blumberg TV kommen.
-
Hey wo kann ich eine andere figur einstellen als den zelda ? in deinem Script :-).
-
erstmal muss ich sagen deine Engien ist top gemacht weiter so freu mich schon auf dein spiel :-).
-
wenn ich deine neue version ziehe auf der downloadseite kommt ein fehler aufmeinem pc im zip ist nichts drin.
bitte kontrolier das mal bitte finde dein spiel bis jetzt super.und weiter so.
-
habe noch nicht viel gecodet fülle immer noch die datenbanken aber gut zu wissen fals ich mal fragen habe komme ich auf dich zurrück wenn ich darf.
-
Es hat sich in der Zeit ja einiges getan die neue Webseite heisst jetzt https://autoit.de/www.Mapledesktop.de und, wird zurzeit komplett überarbeitet von mir (neues Layout und Datenbanke bekommt das ganze jetzt). wer jetzt denkt es sein nicht abgesprochen mit Faweyr ist im ürtum.
Mit freundlichen Grüßen
Das MapleTeam
-
und zwar geht es um diesen code.
1.Frage ist es wie schaffe ich es das er mir nach den 20 teilen eine neue seite anzeigt .
2.Frage wie schaft man dann dies auch in den indx anzeigen zulassen zurzeizt wenn man was auf ruft habe ich es so gemacht Index?go= .... muss ich auch eine <? include("rotation.php"); ?> einbauen der es dann mit einen snde auftrag ändert ? klick
Es geht um https://autoit.de/www.Mapledesktop.de habe sie etwas erneuertSpoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html>
[/autoit] [autoit][/autoit] [autoit]<head>
[/autoit] [autoit][/autoit] [autoit]
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<meta name="generator" content="Adobe GoLive 6">
<title>Willkommen bei Adobe GoLive 6</title>
</head><body bgcolor="#ffffff">
[/autoit] [autoit][/autoit] [autoit]
<div align="center">
<br>
<br>
<div align="center">
<div align="center">
<table width="610" border="0" cellspacing="0" cellpadding="0" bgcolor="#ffff33">
<tr>
<td width="5"><br>
</td>
<td width="75"><b>Nr<br>
</b></td>
<td width="75"><b>Icon<br>
</b></td>
<td width="150">
<div align="left">
<b>Name<br>
</b></div>
</td>
<td width="150"><b>SourceCode<br>
</b></td>
<td width="150"><b>Download<br>
</b></td>
<td width="5"><br>
</td>
</tr>
</table>
<br>
<br>
<?php
// PHP-Code Beginn
//***********************************************************************************************************
require_once('db_config.php');
// Die Datenbankverbindungsdaten einbinden, damit die Funktion "mysql_connect" funktioniert
//***********************************************************************************************************
mysql_connect($host, $user, $pass);
// Öffnet eine Verbindung zu dem MySql-Server
//***********************************************************************************************************
mysql_select_db($dbase);
// Wählt die Datenbank $dbase aus
//***********************************************************************************************************
$result = mysql_query("SELECT * FROM maple_files LIMIT 0,10");
if (!$result) {
echo "Error: " . mysql_error();
exit;
}if (mysql_num_rows($result) == 0) {
[/autoit] [autoit][/autoit] [autoit]
echo "Keine Server gefunden!";
exit;
}while ($row = mysql_fetch_assoc($result))
[/autoit] [autoit][/autoit] [autoit]
{
echo "
<table width=\"610\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"5\"><br>
</td>
<td width=\"75\"><b>$row[id]</b></td>
<td width=\"75\"><b><img src=\"files/".$row["bild"]."/image.png\" width=\"24\" height=\"24\"></b></td>
<td width=\"150\"><b>$row[name]<br></b></td>
<td width=\"150\"><b><a href=\"files/".$row["id"]."/Data.zip\"><img src=\"images/down_0.gif\" width=\"141\" height=\"31\" border=\"0\"</a></b></td>
<td width=\"150\"><b><a href=\"files/".$row["id"]."/Maple%20Desktop.exe\"><img src=\"images/down.gif\" width=\"141\" height=\"31\" border=\"0\"</a></b></td>
<td width=\"5\"><br>
</td>
</tr>
</table> <br>";//test echo
[/autoit] [autoit][/autoit] [autoit]
// echo "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\" usw.>". "<b>".$row["Name"] ."</b>". "||" .$row["Url"]. "<br>";
//echo "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\">". "<b>".$row["Name"] ."</b>". "||". $row["Url"]. "<br>";
echo '<table" width="610" border="0" cellspacing="0" cellpadding="0">';
//echo "<tr>";
//echo "<td>". "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\">". "</td>";
//echo "<td>". $row["Name"] . "</td>";
//echo "</tr>";
//echo "</table>";//echo "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\">"." ". "<b>".$row["Name"] ." ". "<a href=\"files/".$row["Bild"]."/Maple%20Desktop.exe\">"."Download"."</a>"."<br>";
[/autoit] [autoit][/autoit] [autoit]
// Bild anzeigen; Namen anzeige; Download;
}
?><br>
<br>
<? include("rotation.php"); ?><br>
<br>
<br>
<table width="610" border="0" cellspacing="0" cellpadding="0" bgcolor="#ffff33">
<tr>
<td width="5"><br>
</td>
<td width="75"><b>Nr<br>
</b></td>
<td width="75"><b>Icon<br>
</b></td>
<td width="150">
<div align="left">
<b>Name<br>
</b></div>
</td>
<td width="150"><b>SourceCode<br>
</b></td>
<td width="150"><b>Download<br>
</b></td>
<td width="5"><br>
</td>
</tr>
</table>
<br>
<br>
<?php
// PHP-Code Beginn
//***********************************************************************************************************
require_once('db_config.php');
// Die Datenbankverbindungsdaten einbinden, damit die Funktion "mysql_connect" funktioniert
//***********************************************************************************************************
mysql_connect($host, $user, $pass);
// Öffnet eine Verbindung zu dem MySql-Server
//***********************************************************************************************************
mysql_select_db($dbase);
// Wählt die Datenbank $dbase aus
//***********************************************************************************************************
$result = mysql_query("SELECT * FROM maple_files LIMIT 10,10");
if (!$result) {
echo "Error: " . mysql_error();
exit;
}if (mysql_num_rows($result) == 0) {
[/autoit] [autoit][/autoit] [autoit]
echo "Keine Server gefunden!";
exit;
}while ($row = mysql_fetch_assoc($result))
[/autoit] [autoit][/autoit] [autoit]
{
echo "
<table width=\"610\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"5\"><br>
</td>
<td width=\"75\"><b>$row[id]</b></td>
<td width=\"75\"><b><img src=\"files/".$row["bild"]."/image.png\" width=\"24\" height=\"24\"></b></td>
<td width=\"150\"><b>$row[name]<br></b></td>
<td width=\"150\"><b><a href=\"files/".$row["id"]."/Data.zip\"><img src=\"images/down_0.gif\" width=\"141\" height=\"31\" border=\"0\"</a></b></td>
<td width=\"150\"><b><a href=\"files/".$row["id"]."/Maple%20Desktop.exe\"><img src=\"images/down.gif\" width=\"141\" height=\"31\" border=\"0\"</a></b></td>
<td width=\"5\"><br>
</td>
</tr>
</table> <br>";//test echo
[/autoit] [autoit][/autoit] [autoit]
// echo "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\" usw.>". "<b>".$row["Name"] ."</b>". "||" .$row["Url"]. "<br>";
//echo "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\">". "<b>".$row["Name"] ."</b>". "||". $row["Url"]. "<br>";
echo '<table" width="610" border="0" cellspacing="0" cellpadding="0">';
//echo "<tr>";
//echo "<td>". "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\">". "</td>";
//echo "<td>". $row["Name"] . "</td>";
//echo "</tr>";
//echo "</table>";//echo "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\">"." ". "<b>".$row["Name"] ." ". "<a href=\"files/".$row["Bild"]."/Maple%20Desktop.exe\">"."Download"."</a>"."<br>";
[/autoit] [autoit][/autoit] [autoit]
// Bild anzeigen; Namen anzeige; Download;
}
?><br>
<br>
<br>
<br>
<p>[ <? echo "1" ;?> ] <a href="index.php?go=index"><img src="images/1.gif" alt="" height="21" width="33" border="0"></a></p>
</div>
</div>
</div>
<p></p>
</body></html>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] -
habe es mir auch mal geladen und getestet ist mehr als wow werde es auf jedefall weiter nutzen.
Und weiter so freu mich schon auf die fortsetzung. -
Setzt dich doch mit hauke96 in verbindung der baut auch so was.
Vieleicht könnt ihr ja beide was gutes draus machen :-). -
Thx danke das du es schon gemacht hast Schnuffel, ich hätte es jetzt probiert bis es gegangen wäre.
-
und zwar wenn ich im editor was schreibe und speicher kommt es so raus
Spoiler anzeigen
[autoit]<font size="2">hhetetetrerefef
[/autoit]
bgettggeegge
ghggggeetgeeg
ghgettegege
</font><b><font size="2"><br></div>
es soll aber so aus sehenSpoiler anzeigen
[autoit]
[/autoit]
<p><b>dies ist ein Test<br>
<font size="2"><br><br></font></b><font size="2">hhetetetrerefef</font><b><font size="2"><br>
<font size="2"><br><br></font></b><font size="2">bgettggeegge</font><b><font size="2"><br>
<font size="2"><br><br></font></b><font size="2">ghggggeetgeeg</font><b><font size="2"><br>
<font size="2"><br><br></font></b><font size="2">ghgettegege</font><b><font size="2"><br>was ist da falsch ?
code:
[autoit]
[/autoit][autoit][/autoit][autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <Array.au3>
Dim $Code[2]
$Code[0] = '<table width="800" border="0" cellspacing="0" cellpadding="0">'& @CRLF &'<tr height="23">'& @CRLF &'<td valign="top" height="23" background="images/default/tabelle-oben.jpg">' & @CRLF _
&'<div align="center">'& @CRLF & '<table width="800" border="0" cellspacing="0" cellpadding="0" height="23">' & @CRLF & '<tr>'& @CRLF & '<td width="2"></td>'& @CRLF & '<td>'& @CRLF _
&'<div align="left">'&@CRLF& '<font color="black" face="Arial, Helvetica, sans-serif"><b>Top News vom' & @MDAY & "." & @MON & "." & @YEAR & '</b></font><b><font color="black" face="Arial, Helvetica, sans-serif" size="2"><br>'& @CRLF _
&'</font></b></div>'& @CRLF & '</td>'& @CRLF & '<td width="2"></td>'& @CRLF &'</tr>'& @CRLF &'</table>'& @CRLF &'</div>'& @CRLF &'</td>'& @CRLF &'</tr>'& @CRLF &'<tr><td valign="top" background="images/default/tabelle-mitte.jpg">'& @CRLF _
&'<div align="center">'& @CRLF & '<br>'& @CRLF & '<table width="800" border="0" cellspacing="2" cellpadding="0">'& @CRLF & '<tr><td valign="top" width="1">'& @CRLF & '<br>'& @CRLF & '</td>'& @CRLF & '<td valign="top" width="780">'& @CRLF _
&'<div align="left">'& @CRLF
$Code[1] = '</div>'& @CRLF & '</td>'& @CRLF & '<td valign="top" width="1"><br>'& @CRLF & '</td></tr></table></div></td></tr><tr height="23">'& @CRLF & '<td height="23" background="images/default/tabelle-oben.jpg"><br></td></tr></table><br>[1] >>'& @CRLF#cs
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
HotKeySet("{Return}", "EnterWasPressed")
#ce
#Region ### START Koda GUI section ### Form=c:\users\standart\desktop\koda_1.7.3.0\forms\form1.kxf
$Form1_1 = GUICreate("Form1", 500, 339, -1, -1)
$Edit1 = GUICtrlCreateEdit("", 8, 96, 480, 200)
GUICtrlSetData(-1,"")
$Button1 = GUICtrlCreateButton("Speichern", 416, 304, 75, 25)
$Input1 = GUICtrlCreateInput("", 8, 40, 480, 21)
$Label1 = GUICtrlCreateLabel("Titel", 8, 8, 62, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("Text", 8, 72, 38, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit][/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$file = FileOpen(@ScriptDir & "\news.txt", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($file,$Code[0])
FileWrite($file,'<p><b>' & GUICtrlRead ($Input1)& '<br>'& @CRLF & '<font size="2"><br><br>')
FileWrite($file,'</font></b><font size="2">' & GUICtrlRead ($Edit1)&'</font><b><font size="2"><br>')
FileWrite($file,$Code[1])
FileClose($file)
EndSwitch
WEnd
#cs
Func EnterWasPressed()
GUICtrlSetState($edit1, Send('</font><b><font size="2"><br>')& @CRLF)
EndFunc -
ist auch in deutschland könnt ihr rtl u.s.w schauen hier
http://online-stream.tv/index.php?i=main
http://youfreetv.net/tv.php -
Leider spinnt der ab den donload 4 in der Listenview
Spoiler anzeigen
[autoit]
[/autoit]
Func _CalcPerformance($iRead, $bDone, $iSize, $tStart,$Name,$Groesse, $test, $dnr)
;MsgBox(4096, "inet",$dnr-1)
Local $tDiff = TimerDiff($tStart), $iRTime, $sMSG
Local $iToDo = Round(($iSize - $iRead) / 1024, 2)
Local $nKBPerSec = Round($iRead / $tDiff * 1000, 2)
Local $iPercent = Round($iRead / $iSize * 100, 2)
if ($iSize = 0) And Not $bDone Then
$iRTime = "unbekannt"
Else
$iRTime = Round($iToDo / $nKBPerSec, 0)
EndIf
$sMSG = _FormatFileSize(Round($iRead, 0)) & " / " & _FormatFileSize(Round($iSize, 0))
;MsgBox (48, "", $sMSG )
$Time1 = _SecToTime( Round(_FormatFileSize(Round($iSize, 0))/ _SpeedSize($nKBPerSec)),0)
$TimeString = ""
If $Time1[0] > 0 Then $TimeString = $Time1[0] & " sec " & $TimeString
If $Time1[1] > 0 Then $TimeString = $Time1[1] & " min " & $TimeString
If $Time1[2] > 0 Then $TimeString = $Time1[2] & " Std " & $TimeString
If $Time1[3] > 0 Then $TimeString = $Time1[3] & " Tage" & $TimeString
Sleep(275)
_GUICtrlListView_DeleteAllItems($List1)
;ToolTip("File Name.: " & $Name & @CRLF & "Download Grösse.: "& $Groesse & @CRLF & "Status.: " & $sMSG & @CRLF & "Fortschritt.: " & Round($iPercent, 0) & " % " & @CRLF & "Downloadspeed.: " & _SpeedSize($nKBPerSec) & @CRLF & "Downloadzeit ca.: " & $TimeString, -1, -1, "Info", 1)
_GUICtrlListView_SetItemText($List1, $dnr - 1, $Name, 1);Name
_GUICtrlListView_SetItemText($List1, $dnr - 1, $Groesse, 2);Downloadgröße
_GUICtrlListView_SetItemText($List1, $dnr - 1, _FormatFileSize(Round($iRead, 0)), 3);Geladen
;_GUICtrlListView_SetItemText($List1, $dnr - 1, _FormatFileSize(Round($iRead, 0)), 4);Hoster
_GUICtrlListView_SetItemText($List1, $dnr - 1, $TimeString, 5);Status/ Time
_GUICtrlListView_SetItemText($List1, $dnr - 1, _SpeedSize($nKBPerSec), 6);Speed
_GUICtrlListView_SetItemText($List1, $dnr - 1, Round($iPercent, 0) & " % " , 7);Fortschritt
Return Round($iPercent, 1)
EndFunc ;==>_CalcPerformance -
brauche mal da hilfe etwas und zwar habe ich es jetzt vor ,daß das ganze in ListView angeziegt wird was vorherr in toltip war.
oder wie würdet ihr es machen ?Spoiler anzeigen
[autoit][/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#Include <Date.au3>
#include-once
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>#include <GuiListView.au3>
[/autoit] [autoit][/autoit] [autoit]
#include<GUIImageList.au3>#include <GuiToolbar.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ToolbarConstants.au3>#include <String.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#cs
****************************************************************************************
*** ***
*** Taskbar ***
*** ***
****************************************************************************************
#ce
$Handle = WinGetHandle("[CLASS:Shell_TrayWnd]")
Dim $Pos[2]
$Pos[0] = @DesktopWidth -810
$Pos[1] = @DesktopHeight-350-WInGetPos($Handle)
#cs
****************************************************************************************
*** ***
*** Containerfiles ***
*** ***
****************************************************************************************
#ce
$Container = "*.rsdf|*.ccf|*.dlc"
$one = StringSplit($Container, "|")Global Const $Groesen = StringSplit("KB|MB|GB|TB|?|", "|")
[/autoit] [autoit][/autoit] [autoit]
Global Const $SpeedGroesen = StringSplit("kbps|Mbps|Gbps|Tbps|Pbps|?|", "|")
Dim $File[IniRead(@ScriptDir & "\test.ini", "Zahl", "key", Default)] = [IniRead(@ScriptDir & "\test.ini", "Download", Default, Default)]
Dim $Filename[IniRead(@ScriptDir & "\test.ini", "Zahl", "key", Default)] = [IniRead(@ScriptDir & "\test.ini", "Download", Default, Default)]#Region ### START Koda GUI section ### Form=C:\Users\Sirocool\Desktop\Form1.kxf
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("File Download 1.4", 800, 280, $Pos[0], $Pos[1], $GUI_SS_DEFAULT_GUI, BitOR($WS_EX_ACCEPTFILES,$WS_EX_APPWINDOW,$WS_EX_CONTEXTHELP,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00040008);slide-in
GUISetFont(8, 400, 0, "Verdana")
$MenuItem1 = GUICtrlCreateMenu("Datei")
$MenuItem2 = GUICtrlCreateMenu("MenuItem4", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("MenuItem5", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("MenuItem3", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenu("Werkzeuge")
$MenuItem6 = GUICtrlCreateMenu("Sprache")
$MenuItem7 = GUICtrlCreateMenu("File Hoster")
GUICtrlCreateMenu("||")
GUICtrlSetState(-1, $GUI_DISABLE)
$MenuItem8 = GUICtrlCreateMenu("Entwickler Support")
GUICtrlCreateMenu("||")
GUICtrlSetState(-1, $GUI_DISABLE)
$MenuItem9 = GUICtrlCreateMenu("Hilfe")$ImageList1 = _GUIImageList_Create( 25, 25, 5)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_GUIImageList_AddIcon($ImageList1, @SystemDir & "\wpdshext.dll", 2, True)
_GUIImageList_AddIcon($ImageList1, @SystemDir & "\wpdshext.dll", 6, True)
$hToolbar = _GUICtrlToolbar_Create ($Form1,0)
_GUICtrlToolbar_GetMaxSize ($hToolbar)
_GUICtrlToolbar_SetImageList($hToolBar, $ImageList1)
_GUICtrlToolbar_AddButton ($hToolbar, 0, 0)
_GUICtrlToolbar_AddButton ($hToolbar, 1, 1)GUISetBkColor(0xFFFFFF)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$List1 = GUICtrlCreateListView("Nr.|Paket/Datei|Größe|Geladen|Anbieter|Status|Speed|Fortschritt|#", 0, 40, 800, 197)
;$List1_0 = GUICtrlCreateListViewItem("01|Photoshop|1,01 GB|200,00 Mb|http://www.Megaupload.com|1 h 40 min 06 sec|150 KB/s|25 %",$List1)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 25)
GUICtrlSetFont(-1, 8, 400, 2, "Verdana")
GUICtrlSetColor(-1, 0xC0C0C0)
$Button1 = GUICtrlCreateButton("Suchen", 720, 8, 75, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$Combo1 = GUICtrlCreateCombo("Combo1", 440, 8, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput("Input1", 592, 8, 121, 25)
GUICtrlSetState(-1, $GUI_DISABLE)$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
[/autoit] [autoit][/autoit] [autoit]Dim $StatusBar1_PartsWidth[1] = [-1]
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, @TAB & "© Copyright 2011 Copyright Sirocool - All Rights Reserved", 0)
_GUICtrlStatusBar_SetBkColor($StatusBar1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg(1)
$WINPOS = WinGetPos($Form1)
Switch $nMsg[1]
Case $Form1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00050004);slide-out
Exit
Case $MenuItem3
Laden()
;$open = FileOpenDialog("Container Files", @DesktopDir & "", "Contanier (*.dlc;*.ccf)|Speedfiles (*.sjc;*.acc)", 1 + 4 )
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndSwitchEndSwitch
[/autoit] [autoit][/autoit] [autoit]
WEndFunc Laden()
[/autoit] [autoit][/autoit] [autoit]
Dim $aRecords
$open = FileOpenDialog("Container Files", @DesktopDir & "", "Contanier (*.dlc;*.ccf)|Speedfiles (*.sjc;*.acc)| Textfiles (*.txt)", 1 + 4 )
If @error Then
MsgBox(4096,"Error" ,"No File(s) chosen")
Else
For $i = 1 To 1000
$Read = FileReadLine($open, $i)
If Not @error Then
$Ex = _StringExplode($Read, "/", 0)
_GUICtrlListView_AddItem($List1, $i)
_GUICtrlListView_SetItemText($List1, _GUICtrlListView_GetItemCount($List1) - 1, $Ex[3], 1)
_GUICtrlListView_SetItemText($List1, _GUICtrlListView_GetItemCount($List1) - 1, $Ex[2], 4)
ElseIf Not _FileReadToArray($open, $aRecords) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
EndIf
Next
EndIf
For $a = 1 To $aRecords[0]
;Msgbox(0,'Record:' & $a, $aRecords[$a]);zurkontrolle
IniWrite(@ScriptDir & "\test.ini", "Download", $a, $aRecords[$a])
$Test = StringSplit($aRecords[$a], "/")
IniWrite(@ScriptDir & "\test.ini", "Namen", $a, $Test[$Test[0]])
IniWrite(@ScriptDir & "\test.ini", "zahl", "Key", $aRecords[0])
Next
For $b = 1 To $aRecords[0]
$var = IniRead(@ScriptDir & "\test.ini", "Download", $b, Default)
;MsgBox(4096, "Result", $var)
NextFor $c = 1 To IniRead(@ScriptDir & "\test.ini", "Zahl", "key", Default)
[/autoit] [autoit][/autoit] [autoit]
;MsgBox(4096, "inet",IniRead(@ScriptDir & "\test.ini", "Download", $i, Default))
Sleep(50)
If FileExists(@DesktopDir & "\" & "old_" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default)) Then FileDelete(@ScriptDir & "\" & "old_" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default))
If FileExists(@ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default)) Then FileMove(@ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default), @ScriptDir & "\" & "old_" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default))
$sFILESIZE = InetGetSize(IniRead(@ScriptDir & "\test.ini", "Download", $c, Default))
$hDL = InetGet(IniRead(@ScriptDir & "\test.ini", "Download", $c, Default), @ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default),1,1)
$url = IniRead(@ScriptDir & "\test.ini", "Download", $c, Default)
$tStart = TimerInit()
Do
$aDL_Info = InetGetInfo($hDL)
$iPercent = _CalcPerformance($aDL_Info[0], $aDL_Info[2], $sFILESIZE, $tStart,IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default),_FormatFileSize(InetGetSize(IniRead(@ScriptDir & "\test.ini", "Download", $c, Default))),$url)
Until $aDL_Info[2]
InetClose($hDL)
FileDelete(@ScriptDir & "\" & "old_" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default))
ToolTip("Fertig")
ToolTip("")
Next
FileDelete(@ScriptDir & "\test.ini")EndFunc ;==>Laden
[/autoit] [autoit][/autoit] [autoit]Func _download()
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit]#cs
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein _CalcPerformance ********
******** Copyright: autoBert (http://www.autoit.de) ********
******** ********
******** ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 000% auf Windows Vista (wurde noch nicht getestet) ********
******** Es läuft zu 100% auf Windows 07 x64 7201 ********
******** Alle anderen Windows Versionen sind nicht getestet! ********
******** ********
******** Mit freundlicher Mithilfe von http://www.autoit.de ********
******** Danke an alle die mir mit diesem Projekt geholfen haben. *******
******** ********
******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
Func _CalcPerformance($iRead, $bDone, $iSize, $tStart,$Name,$Groesse, $test)
Local $tDiff = TimerDiff($tStart), $iRTime, $sMSG
Local $iToDo = Round(($iSize - $iRead) / 1024, 2)
Local $nKBPerSec = Round($iRead / $tDiff * 1000, 2)
Local $iPercent = Round($iRead / $iSize * 100, 2)
if ($iSize = 0) And Not $bDone Then
$iRTime = "unbekannt"
Else
$iRTime = Round($iToDo / $nKBPerSec, 0)
EndIf
$sMSG = _FormatFileSize(Round($iRead, 0)) & " / " & _FormatFileSize(Round($iSize, 0))
;MsgBox (48, "", $sMSG )
$Time1 = _SecToTime( Round(_FormatFileSize(Round($iSize, 0))/ _SpeedSize($nKBPerSec)),0)
$TimeString = ""
If $Time1[0] > 0 Then $TimeString = $Time1[0] & " sec " & $TimeString
If $Time1[1] > 0 Then $TimeString = $Time1[1] & " min " & $TimeString
If $Time1[2] > 0 Then $TimeString = $Time1[2] & " Std " & $TimeString
If $Time1[3] > 0 Then $TimeString = $Time1[3] & " Tage" & $TimeString
Sleep(750)
ToolTip("File Name.: " & $Name & @CRLF & "Download Grösse.: "& $Groesse & @CRLF & "Status.: " & $sMSG & @CRLF & "Fortschritt.: " & Round($iPercent, 0) & " % " & @CRLF & "Downloadspeed.: " & _SpeedSize($nKBPerSec) & @CRLF & "Downloadzeit ca.: " & $TimeString, -1, -1, "Info", 1)Return Round($iPercent, 1)
[/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>_CalcPerformance
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein _FormatFileSize & _SpeedSize & _SecToTime ********
******** Copyright: Jam00 (http://www.autoit.de) ********
******** ********
******** ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 000% auf Windows Vista (wurde noch nicht getestet) ********
******** Es läuft zu 100% auf Windows 07 x64 7201 ********
******** Alle anderen Windows Versionen sind nicht getestet! ********
******** ********
******** Mit freundlicher Mithilfe von http://www.autoit.de ********
******** Danke an alle die mir mit diesem Projekt geholfen haben. ********
******** ********
******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
Func _FormatFileSize($sFunc_Size)
Local $i = 0
While $sFunc_Size > 1000
$sFunc_Size /= 1024
$i += 1
WEnd
If $i > 4 Then $i = 4
Return Round($sFunc_Size, 2) & " " & $Groesen[$i]
EndFunc ;==>_FormatFileSizeFunc _SpeedSize($Speeds)
[/autoit] [autoit][/autoit] [autoit]
Local $si = 0
While $Speeds > 1000
$Speeds /= 1024
$si+=1
WEnd
If $si > 5 Then $si = 5
Return Round ($Speeds,2) & " " & $SpeedGroesen[$si]
EndFunc ;==>_SpeedSizeFunc _SecToTime($Sec, $Flag = 0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
Local $Rechner, $1, $Rest
Local $Zeit[4] = [0, 0, 0, 0]
$Zeit[0] = $Sec
For $1 = 0 To 2
If $1 < 2 Then
$Rechner = 60
Else
$Rechner = 24
EndIf
If $Zeit[$1] > $Rechner - 1 Then
$Rest = Mod($Zeit[$1], $Rechner)
$Zeit[$1 + 1] = ($Zeit[$1] - $Rest) / $Rechner
$Zeit[$1] = $Rest
EndIf
Next
If $Flag = 1 Then
Local $sZeit, $State = 0
For $1 = 3 To 0 Step -1
If $Zeit[$1] > 0 Then
$State = 1
$sZeit &= $Zeit[$1] & ":"
ElseIf $State = 1 Then
$sZeit &= $Zeit[$1] & ":"
EndIf
Next
Return StringTrimRight($sZeit, 1)
EndIf
Return $Zeit
EndFunc ;==>_SecToTime -
vieleicht hilft dir das etwas weiter so haben wir es damals mal gemacht ich und Jam00.
Dies ist nur ein testscript habe nur noch den von devilBrowser project hatte festplatten crach.Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#cs ----------------------------------------------------------------------------AutoIt Version: 3.3.0.0
[/autoit] [autoit][/autoit] [autoit]
Author: myNameScript Function:
[/autoit] [autoit][/autoit] [autoit]
Template AutoIt script.#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]
#NoTrayIcon
#RequireAdmin
#include <GUIConstants.au3>
#include <GuiTab.au3>
#include <Array.au3>
#include <Ie.au3>
#include <INet.au3>#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <tabConstants.au3>;$Icon2=GUICtrlCreateIcon(@ScriptDir &"\temp\favicon.ico")
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test ie mit Tab", 629, 422, 656, 495)
GUISetBkColor(0xFFFFFF)
$icon = GUICtrlCreateIcon("", 0, 10, 12, 16, 16)
$Input1 = GUICtrlCreateInput("http://", 25, 8, 259, 21)
$Button1 = GUICtrlCreateButton("Button1", 304, 8, 75, 25, 0)
$Tab = GUICtrlCreateTab(16, 35, 609, 25)
$Button2 = GUICtrlCreateButton("Quellcode anzeigen", 392, 8, 125, 25, 0)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]
#EndRegion ### END Koda GUI section ###Dim $ie[1],$Obj[1]
[/autoit] [autoit][/autoit] [autoit]
_ArrayAdd ($ie,_IECreateEmbedded())
_ArrayAdd ($ie,_IEErrorHandlerRegister ())
[/autoit] [autoit][/autoit] [autoit]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_NewTab(GUICtrlRead ($Input1))
_start()
Case $Button2
If FileExists(@ScriptDir & "\Temp\Source.txt") Then FileDelete(@ScriptDir & "\Temp\Source.txt")
$Source = _IEDocReadHTML($IE[_GUICtrlTab_GetCurSel($Tab)+2])
MsgBox (0,"",$Source)
FileWrite(@ScriptDir & "\Temp\Source.txt", $Source)
ShellExecute(@ScriptDir & "\Temp\Source.txt")
Case $Button2
_quellcode();_IENavigate ($Obj,$ie)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndSwitch
WEndFunc _NewTab($sText)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateTabItem ($sText)
_ArrayAdd ($ie ,_IECreateEmbedded())
_ArrayAdd ($Obj,GUICtrlCreateObj($ie[UBound ($ie) -1], 8, 64, 609, 337))
GUICtrlSetResizing ( -1, 802)
_IELoadWait($ie[UBound ($ie) -1],$sText,0)
_IENavigate($ie[UBound ($ie) -1],$sText,0)
_GUICtrlTab_SetCurSel($Tab, _GUICtrlTab_GetItemCount($Tab) -1)
EndFunc
Func _Close()
Local $Zahl = _GUICtrlTab_GetCurSel($Tab)
If $Zahl > -1 Then
_GUICtrlTab_DeleteItem($Tab, $Zahl)
GUICtrlDelete ($Obj[$Zahl +1])
_GUICtrlTab_SetCurSel($Tab, _GUICtrlTab_GetItemCount($Tab) -1)
EndIf
EndFuncFunc _start()
[/autoit] [autoit][/autoit] [autoit]
$url = GUICtrlRead($Input1)
InetGet($url & "/favicon.ico", 'temp\favicon.ico', 1, 0)
_icon()
EndFuncFunc _quellcode()
[/autoit] [autoit][/autoit] [autoit]
$body = _INetGetSource ($tab)
$start = '<script type="text/javascript" src="'
$end= 'js/20090331/base.js"></script>'$between = _StringBetween($body,$start,$end,-1,-1)
[/autoit] [autoit][/autoit] [autoit]
msgbox(0,"",$between)EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit]
Func _icon()
$icon = GUICtrlCreateIcon(@ScriptDir &"\temp\favicon.ico" , 0, 10, 10, 16, 16)
GUICtrlSetResizing ( -1, 802)
;$icon_0 = GUICtrlCreateIcon(@ScriptDir &"\temp\favicon.ico", 0, 0, 40, 16, 16)
;GUICtrlSetResizing ( -1, 802)
;GUICtrlCreateIcon(@ScriptDir &"\temp\favicon.ico", 0, 100, 45, 16, 16)
EndFunc