Beiträge von sccssf

sccssf

Zitat von Bitnugger

So in etwa..

Das Flackert bei mir richtig viel! Auch das Hochzählen ist nicht in Ordnung oder wolltest du wirklich die einzeln Starts zählen?

Natürlich sehen deine Buttons schöner aus

Und ja ich hatte noch in meinem Skript Fehler

Zitat von Zeitriss

Hi,

Einfach nur dann aktualisieren, wenn sich der Wert seit der letzten überprüfung geändert hat.
Dazu muss man nur den letzten Wert von ProcessExists nehmen und diesen mit dem aktuellen vergleichen.

mfg
Zeitriss

Dei Skript habe ich heute auch getestet.
Oberes geht flackert aber auch.
Unteres geht nicht zeigt nicht das richtige an.

Was mir noch aufgefallen ist @Andy

AutoIt

GUICtrlSetData($Kommen, "läuft" & @CRLF & "nicht")

Leider wird @CRLF wird nicht beachtet. Habe auch noch nicht raus gefunden wie ich es hin bekomme.

Ich habe in meine Schleife noch eine Pause von 1000 eingefügt, dann ist das Flackern nicht so schlimm. Programm läuft bei mir auf einem Rechner den ich nur per VNC Aufrufe.

Hier noch meine Aktuelle Version.

Spoiler anzeigen

AutoIt

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>


Opt('GUIOnEventMode', 1)
Opt('TrayOnEventMode', 1)
Opt('TrayMenuMode', 1)


$Form1 = GUICreate("Serverüberwachung", 348, 155, 192, 124)
$Setting_Menu = GUICtrlCreateMenu("Menü")
$Setting_exit = GUICtrlCreateMenuItem("Ende", $Setting_Menu)
GUICtrlSetOnEvent(-1,"_Exit")
$helpmenu = GUICtrlCreateMenu("?")
$Info = GUICtrlCreateMenuItem("Version",$helpmenu)
GUICtrlSetOnEvent(-1,"_showInfo")
$wachen = GUICtrlCreateButton("", 8, 16, 100, 100)
GUICtrlSetFont(-1, 12, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0x00FF00)
$reset = GUICtrlCreateButton("Reset-Start", 124, 16, 100, 100)
GUICtrlSetFont(-1, 12, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0x4452F0)
GUICtrlSetOnEvent(-1,"_RESET")
$stopen = GUICtrlCreateButton("STOP", 240, 16, 100, 100)
GUICtrlSetFont(-1, 12, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0xe9f01a)
GUICtrlSetOnEvent(-1,"_STOP")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
GUISetOnEvent($GUI_EVENT_MINIMIZE, '_Minimize')
TraySetOnEvent( -7, '_Restore')




While sleep(100)
	If ProcessExists("notepad.exe") Then
        GUICtrlSetData($wachen, "läuft")
        GUICtrlSetBkColor($wachen, 0x00FF00)
    Else
        GUICtrlSetData($wachen, "läuft nicht")
        GUICtrlSetBkColor($wachen, 0xFF0000)
    EndIf
sleep(1000)
WEnd


Func _showInfo()
            MsgBox (0,"Info","Version 1.3 "&@CRLF&"09.11.2016 SCCSSF")
EndFunc


Func _Exit()
    Exit
EndFunc


Func _Minimize()
    TraySetState(1)
    GUISetState(@SW_HIDE)
EndFunc


Func _Restore()
    TraySetState(2)
    GUISetState(@SW_SHOW)
EndFunc


Func _RESET() ;Hier passiert was wenn der Button gedrückt wird
ProcessClose("notepad.exe")
RunAsWait("Benutzer","Domain","Passwort",0,@ComSpec  &  " /c " &'net stop "Test_Autostart"',"",@SW_HIDE)
RunAsWait("Benutzer","Domain","Passwort",0,@ComSpec  &  " /c " &'net start "Test_Autostart"',"",@SW_HIDE) 
EndFunc


Func _STOP() ;Hier passiert was wenn der Button gedrückt wird
ProcessClose("notepad.exe")
RunAsWait("Benutzer","Domain","Passwort",0,@ComSpec  &  " /c " &'net stop "Test_Autostart"',"",@SW_HIDE)
EndFunc

Alles anzeigen

Vielleicht will noch jemand die Lösung finden.

sccssf

Danke manchmal ist man blöd.

sccssf

Hallo,

stehe gerade mal wieder auf dem Schlauch um ein Problem zu lösen.

Ich muss ein kleines Programm schreiben was Anzeigt ob ein Prozess läuft.

Basis ist ein altes Programm, was ich mal geschrieben habe.

Was soll passieren der Button "PN4000" soll Grün sein wenn der Prozess läuft.

Läuft er nicht soll er Rot sein.

Es ist mir Klar das es mit if ProcessExists("blablaexe") geht.

Allerdings wie baue ich das ganze in meine GUI sinnvoll ein.

AutoIt

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
Opt('GUIOnEventMode', 1)
Opt('TrayOnEventMode', 1)
Opt('TrayMenuMode', 1)


$Form1 = GUICreate("PN4000", 307, 150, 192, 124)
$Setting_Menu = GUICtrlCreateMenu("Menü")
$Setting_exit = GUICtrlCreateMenuItem("Ende", $Setting_Menu)
GUICtrlSetOnEvent(-1,"_Exit")
$helpmenu = GUICtrlCreateMenu("?")
GUICtrlSetOnEvent(-1,"_Help")
$Info = GUICtrlCreateMenuItem("Info",$helpmenu)
GUICtrlSetOnEvent(-1,"_showInfo")
$Kommen = GUICtrlCreateButton("PN4000", 32, 8, 113, 113)
GUICtrlSetFont(-1, 18, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0x00FF00)
$Gehen = GUICtrlCreateButton("Reset", 171, 8, 113, 113)
GUICtrlSetFont(-1, 18, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0x4452F0)
GUICtrlSetOnEvent(-1,"_RESET")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
GUISetOnEvent($GUI_EVENT_MINIMIZE, '_Minimize')
TraySetOnEvent( -7, '_Restore')




While sleep(100)
WEnd


Func _showInfo()
            MsgBox (0,"Info","Version 0.1 "&@CRLF&"Stand 31.10.2016")
EndFunc


Func _Exit()
    Exit
EndFunc


Func _Minimize()
    TraySetState(1)
    GUISetState(@SW_HIDE)
EndFunc


Func _Restore()
    TraySetState(2)
    GUISetState(@SW_SHOW)
EndFunc


Func _RESET() ;Hier passiert was wenn der Button gedrückt wird
Run('Notepad.exe')
;ProcessClose("pn4.exe")
;RunAsWait("abc","neu","12346",0,@ComSpec  &  " /c " &'net stop "Autostart"',"",@SW_HIDE);Sleep (1000)
;RunAsWait("abc","neu","123456",0,@ComSpec  &  " /c " &'net start "Autostart"',"",@SW_HIDE) 
EndFunc

Alles anzeigen

Danke für die Tipps.

Gruß

Steffen

sccssf

Zitat von alpines

Das liegt daran das der "disabled" Tag gesetzt ist, probier es mal vorher zu enablen _IEAction($OK1, "enable")
Außerdem brauchst du nicht extra eine Form-Collection zu holen, wenn der name oder die ID nur einmal vorkommt kannst du statt $oForm direkt aufs $oIE Objekt zugreifen.
$oLogin = _IEGetObjById($oIE, "login")

Danke alpines für die schnelle Hilfe.

Es klappt Danke

sccssf

Hallo,

habe eine Internetseite die möchte das ich unbedingt was von Handschreibe. Möchte ich aber nicht.

Hat einer eine Idee wie ich dies umgehen kann ?

https://servatnet.atradius.com/

Das ist mein Login Skript. Es läuft soweit bloß ich muss erst noch ein Zeichen hinter den User schreiben und wieder löschen dann wird der OK Button Rot und mann kann sich einloggen.

Danke schon mal für die Tips

AutoIt

#include <IE.au3>
#include <array.au3>
Sleep (1000)
$MG="123456"
$pw1="IchbineinPaswwort"
$oIE=_IECreate ()
; Seitenaufruf
_IENavigate ($oIE, "https://servatnet.atradius.com/")
_IELoadWait($oIE,0,30000)
; Anmeldung
$oForm = _IEFormGetCollection($oIE,0)
$oMG = _IEGetObjByName($oForm,"username")
If not @error Then 
$oPw1 = _IEGetObjByName($oForm,"password")
$OK1 = _IEGetObjById($oForm,"login")
_IEFormElementSetValue ($oMG,$MG)
_IEFormElementSetValue ($oPw1,$pw1)
_IEAction($OK1,"click")
EndIf

Alles anzeigen

sccssf

Ich habe es gelöst. Blöde Zone.

Danke für die Sprünge

AutoIt

#include <IE.au3>
#include <array.au3>
Sleep (500)
$MG="Gleich"
$pw1="Regnet"
$pw2="es"
$oIE=_IECreate ()
_IENavigate ($oIE, "https://www.my-fis.com/fleetservices/")
sleep (5000)
$oIE1 =_IEAttach ("TIS")
sleep (500)
; Anmeldung
;$oForm = _IEFormGetCollection($oIE,0)
$oMG = _IEGetObjById($oIE1, "txtAccount")
If not @error Then 
$oUsername = _IEGetObjById($oIE1, "txtUser")
$oPassword = _IEGetObjById($oIE1, "txtPassword")
$oSubmit = _IEGetObjById($oIE1, "btnLogin")
_IEFormElementSetValue ($oMG,$MG)
_IEFormElementSetValue ($oUsername,$pw1)   
_IEFormElementSetValue ($oPassword,$pw2) 
_IEAction($oSubmit,"click")
EndIf

Alles anzeigen

sccssf

@Kanashius

OK bei dem txtPassword /$oPassword bin ich bei Dir. Bei dem $oUsername sehe ich keinen Fehler, dafür bei $oSubmit Die Hitze!

Wobei mein größeres Problem ist immer noch, dass bei mir immer noch nicht die Id gefunden wird.

Starte Datei Karten-.au3...

--> IE.au3 T3.0-1 Warning from function _IEGetObjById, $_IESTATUS_NoMatch (txtAccount)

Karten-.au3 -> Exit Code: 0 (Laufzeit: 5 sec)

Sehe gerade die Seite steht bei mir im Browser unter "Vertrauenswürdige Seiten" ist das vielleicht ein Problem ?

https://www.autoitscript.com/forum/topic/16…create-failure/

Steige aber da noch nicht 100 % durch.

sccssf

@alpines

habe ich umgeschrieben findet immer noch nicht das Feld.

HTML

<INPUT id=txtAccount style="WIDTH: 70%" name=txtAccount>

AutoIt

#include <IE.au3>
#include <array.au3>
Sleep (500)
$MG="Ich"
$pw1="brauche ein"
$pw2="Eis"
$oIE=_IECreate ()
; Seitenaufruf
_IENavigate ($oIE, "https://www.my-fis.com/fleetservices/")
_IELoadWait($oIE,0,30000)
sleep (1000)
; Anmeldung
;$oForm = _IEFormGetCollection($oIE,0)
$oMG = _IEGetObjById($oIE, "txtAccount")
If not @error Then 
$oUsername = _IEGetObjById($oIE, "txtUser")
$oPassword = _IEGetObjById($oIE, "txtPasswort")
$oSubmit = _IEGetObjById($oIE, "btnLogin")
_IEFormElementSetValue ($oMG,$MG)
_IEFormElementSetValue ($oUsername,$pw1)   
_IEFormElementSetValue ($Password,$pw2) 
_IEAction($Submit,"click")
EndIf

Alles anzeigen

Fehler:

IE.au3 T3.0-1 Warning from function _IEGetObjById, $_IESTATUS_NoMatch (txtAccount)

sccssf

@alpines kannst du mir dafür ein Beispiel geben ?

Bekomme damit auch einen Fehler.

IE.au3 T3.0-1 Warning from function _IEGetObjById, $_IESTATUS_NoMatch (txtAccount)

C

#include <IE.au3>
#include <array.au3>
Sleep (500)
$MG="alles"
$pw1="nur"
$pw2="geklaut"
$oIE=_IECreate ()
; Seitenaufruf
_IENavigate ($oIE, "https://www.my-fis.com/fleetservices/")
_IELoadWait($oIE,0,30000)
sleep (1000)
; Anmeldung
;$oForm = _IEFormGetCollection($oIE,0)
$oMG = _IEGetObjByID($oIE,"txtAccount")
If not @error Then 
$oPw1 = _IEGetObjById($oIE,"txtUser")
$oPw2 = _IEGetObjById($oIE,"txtPassword")
$OK1 = _IEGetObjById($oIE,"btnLogin")
_IEFormElementSetValue ($oMG,$MG)
_IEFormElementSetValue ($oPw1,$pw1)   
_IEFormElementSetValue ($oPw2,$pw2) 
_IEAction($OK1,"click")
EndIf

Alles anzeigen

sccssf

Hallo,

irgendwie stehe ich gerade auf dem Schlauch (Ach deshalb ist es hier so warm.)

Will ein anmelde Skript schrieben für die Internet Explorer.

Habe ich auch schon diverse. Nur hier bekommen ich das nicht hin. Ich bekomme die Formen nicht zum greifen.

Seite ist: https://www.my-fis.com/fleetservices/

So sieht mein Skript aus.

Danke für die Hilfe

AutoIt

#include <IE.au3>
#include <array.au3>
Sleep (500)
$MG="Supi"
$pw1="ist-es"
$pw2="warm"
$oIE=_IECreate ()
; Seitenaufruf
_IENavigate ($oIE, "https://www.my-fis.com/fleetservices/")
_IELoadWait($oIE,0,30000)
; Anmeldung
$oForm = _IEFormGetCollection($oIE,0)
$oMG = _IEGetObjByName($oForm,"txtAccount")
If not @error Then 
$oPw1 = _IEFormElementGetObjByname($oForm,"txtUser")
$oPw2 = _IEFormElementGetObjByname($oForm,"txtPassword")
$OK1 = _IEFormElementGetObjByname($oForm,"btnLogin")
_IEFormElementSetValue ($oMG,$MG)
_IEFormElementSetValue ($oPw1,$pw1)   
_IEFormElementSetValue ($oPw2,$pw2) 
_IEAction($OK1,"click")
EndIf

Alles anzeigen

sccssf

Hi Autoiter,

gut mit der Hilfe finde ich das der Code dann "OCT" ist.

Ich habe einfach mein Zeichen was ich als Startzeichen benutze in meinem QR Code ändern können.

Nur noch die Frage wie greife ich den Inhalt ab als Variable ?

Gruß

Steffen

sccssf

@Andy

Danke schon mal für deinen Code. Vielleicht bin ich auch als Anfänger zu blöd um es zu verstehen.

Der Prinzipielle Ablauf ist mir klar.

Folgende Frage.

AutoIt

Switch $keycode
        Case 255, 220                   ;scanner startzeichen

wie verbindest du die Zahle mit dem Steuerzeichen "^" Ascii ?

Ich bräuchte als Startzeichen "|" und da ich einen Hexcode übersende müssten auch nicht nur die Zahlen übermittelt werden, gut dass müsste ich ja im Code so ändern.

AutoIt

Case 37 To 122                   ; 0 - 9
            If $scannerbufferflag = 1 Then

Wie bekomme ich die dann in eine Variable?

um in meinem Programm weiter zulaufen ?

Mein Aktueller Code ohne den Buffer findet man in dem Beitrag.

https://autoit.de/index.php/Thre…ufgerufen-wird/

Danke für die Hilfe

Steffen

sccssf

Hallo,

habe meinen Code etwas umgeschrieben.

Im Prinzip geht es wobei ich noch Probleme habe.

Ich sende das ganze von einem Barcode Scanner und der ist ab und zu schneller als mein Input Feld aufgerufen ist. Habe schon gelesen und auch schon ein Zwischenspeicher Programm gefunden, allerdings habe ich es nicht ganz verstanden. Somit auch nicht in meinen Code Integriert.

Ich kann zwar jetzt prüfen ob das Fenster geschlossen ist allerdings nicht parallel ob ich ausgeloggt bin.

Hierzu hier der HTML Code der Logout Seite.

Spoiler anzeigen

HTML

<!DOCTYPE html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="X-UA-Compatible" content="IE=8" />
<meta http-equiv='cache-control' content='no-cache' /><meta http-equiv='pragma' content='no-cache' />
<meta http-equiv='expires' content='0'/><meta http-equiv='expires' content='Di, 13 12 2011 15:14:50 GMT' />
<meta name = "viewport" content = "initial-scale=1.0,target-densitydpi=160">
<title>Zeit</title>
<style type="text/css">
 textarea  {
    -webkit-border-radius: 1px;
    font: -webkit-control;
 }
  input,  keygen, select, button, isindex {
    -webkit-border-radius: 1px;
    font: -webkit-control;
    white-space: nowrap;
 }
 input:focus, textarea:focus, isindex:focus, keygen:focus, select:focus {
    outline: none;
}
input, textarea, keygen, select, button, isindex {
margin: 0__qem;
font-family: Microsoft Sans Serif;
letter-spacing: normal;
word-spacing: normal;
line-height: normal;
text-transform: none;
text-indent: 0;
text-shadow: none;
display: inline-block;
text-align: -webkit-auto;
}
body { font-family:Microsoft Sans Serif;
font-size:14px;
color:#000000;
background-color:#FCFCF2; }
html, body {
margin: 0;
padding: 0;
height: 98%; /* WICHTIG!!! STRECKT ANZEIGENBEREICH AUF 100% */
}
#wrapper {
width: 100%;
min-height: 100%; /* Mindesthoehe for moderne Browser */
height:auto; /* Important Regel for moderne Browser */
height:100%; /* Mindesthoehe for den IE */
overflow: hidden; /* FF Scroll-leiste */
}
</style>
<script type="text/javascript">
var fns=null;
var mob=false;
var tablet=false;
var wd=screen.width-5;
var navim=navigator.appName;
if(navim.indexOf("xplorer")>0) wd=screen.width-10;
var userA=navigator.userAgent;
if(userA.indexOf("iPad")>-1 ||(userA.indexOf("Mobile")<0 && userA.indexOf("Android")>-1 )) tablet=true;
else if((userA.indexOf("Mobile")>-1 && userA.indexOf("Android")>-1)|| userA.indexOf("iPhone")>-1 ) mob=true;
var ht=screen.height-80;
function fClose(){
	if(fns&&!fns.closed) { fns.close(); fns=null;}
}
function fnsClose(){
 window.scrollTo(0,1);     
 if(navigator.userAgent.indexOf("Mobile")<0 && navigator.userAgent.indexOf("Android")<0){
	try{ 
    if(top.opener!=null && top.opener.fns!=null){
       window.close();
       top.opener.focus();
    }
	} catch(e){}
  }
}
function getWinInfo(win)
{
   if(!win) win = window;
   var s = new Object();
   //var windowWidth, windowHeight;
   if (win.innerHeight) {   // all except Explorer
      s.windowWidth =  win.innerWidth;
      s.windowHeight = win.innerHeight;
      if(document.body && document.body.clientHeight){s.windowHeight = document.body.clientHeight; }
      if(document.body && document.body.clientWidth) {s.windowWidth = document.body.clientWidth;   }
      s.xPos = win.screenX;
      s.yPos = win.screenY;
   } else if (document.documentElement && document.documentElement.clientHeight) { // Explorer 6 Strict Mode
      s.windowWidth = document.documentElement.clientWidth;
      s.windowHeight = document.documentElement.clientHeight;
      s.xPos = window.screenLeft;
      s.yPos = window.screenTop;
   } else if (document.body) { // other Explorers
      s.windowWidth = document.body.clientWidth;
      s.windowHeight = document.body.clientHeight;
      s.xPos = window.screenLeft;
      s.yPos = window.screenTop;
      if(window.screenX) s.xPos=window.screenX;
      if(window.screenY) s.yPos=window.screenY;
   }
    s.screenWidth=screen.width;
   s.screenHeight=screen.height;
   s.outerHeight=window.outerHeight;
   s.outerWidth=window.outerWidth;
  return s;
}
function initSmartphone(){
 /*if(mob){
     var ref='ScreenWidth='+screen.width+'&ScreenHeight='+screen.height+'&Smartphone=1';
     if(userA.indexOf("Android")>-1 && userA.indexOf("Mobile")>-1){ref+='&Android=1';}
     else if(userA.indexOf("Apple")>-1)  ref+='&Apple=1';
     ref='./twwebclient?'+ref;
     if(document.getElementById('divDiv')!=null)
         document.getElementById('divDiv').style.display='inline';
     document.location=ref;
 }*/
}
function LdClient(noW){
 var userA=navigator.userAgent;
 var ref='ScreenWidth='+screen.width+'&ScreenHeight='+screen.height+"&navigator="+userA;
 if(userA.indexOf("iPad")<0 &&(userA.indexOf("Mobile")>-1|| userA.indexOf("iPhone")>-1)) {
	 ref+='&mobile=1';
     if(userA.indexOf("iPhone")>-1)      ref+='&Smartphone=1';
     else if(userA.indexOf("Android")>-1){ref+='&Android=1';ref+='&Smartphone=1';}
     else if(userA.indexOf("Apple")>-1)  ref+='&Apple=1';
     else                                ref+='&Smartphone=1';
     if(noW==0)      ref='./twwebclient?'+ref;
     else if(noW==1) ref='./twwebcontrolstandclient?'+ref;
     else            ref='./twwebcontrolstandconfig?'+ref;
     document.location=ref;
 }
 else {
   try{
	   fClose();
    var temp= new Date();
    var wName  = "webclient";
    wName  = wName+(temp.getTime());
    wd=screen.width;
    ht=screen.height;
    if(userA.indexOf("Android")>-1){ref+='&Android=1';}
    else if(userA.indexOf("Apple")>-1)  ref+='&Apple=1';
    if(tablet||userA.indexOf("iPad")>-1||((userA.indexOf("Mobile")<0&& userA.indexOf("Android")>-1))){ 
    	ref+='&Tablet=1';
        if(noW==0)      ref='./zeitbclient?'+ref;
        else if(noW==1) ref='./zeitcontrolstandclient?'+ref;
        else if(noW==2) ref='./zeitcontrolstandconfig?'+ref;
        else            ref='./zeitcontrol?'+ref;
        tablet=true;
        document.location=ref;
    }               		
    else if(navim.indexOf("xplorer")>0){
         if(noW==0)      ref='./zeitclient?'+ref;
         else if(noW==1) ref='./zeitcontrolstandclient?'+ref;
         else if(noW==2) ref='./zeitcontrolstandconfig?'+ref;
         else            ref='./zeitcontrol?'+ref;
         window.location.replace(ref);
    }
    else {
        if(noW==0)      ref='./zeitclient?'+ref;
        else if(noW==1) ref='./zeitcontrolstandclient?'+ref;
        else if(noW==2) ref='./zeitcontrolstandconfig?'+ref;
        else            ref='./zeitcontrol?'+ref;
        if(top.opener && top.opener.document.getElementById("divDiv")!=null) window.location.replace(ref);
        else if(window.menubar.visible||window.toolbar.visible)
        		{fns= window.open(ref, wName,'width='+wd+',height='+ht+',top=0,left=0,menu=false,status=yes,scrollbars=yes,resizable=yes');fns.focus();}
       	else    window.location.replace(ref);
   }
   }
   catch(e){}
   }
}
function closeNachLogout(){
	if(top.opener && top.opener.document.getElementById("divDiv")!=null){
		top.opener.fClose();
	}
}
//-->
</script>
<link rel="shortcut icon" href="./img/favicon.ico" type="image/x-icon"/></head>
<html>
<body onLoad="closeNachLogout();">
<table  id="mt" style='text-align:center;vertical-align:middle;background-color:#FCFCF2;color:#000000;font-size:15px;border-spacing:0px;width:100%;height:100%;border:none'>
<tr ><td valign='middle' style='text-align:center;vertical-align:middle;height:100%'>
<table  border='1' style='padding-left: 5px;padding-right: 5px;padding-top: 5px;padding-bottom: 5px;vertical-align:top;text-align:center;overflow:hidden;border-color:#C0C0C0;text-align:center;font-size:15px;border-spacing:1px;margin:auto;border-width:1px;border:1px;'>
<tr ><td  style='vertical-align:middle;background-color:#FF0000;text-align:center;margin:auto' colspan='2'><img  style='background-color:transparent;width:300px;' src='./img/zeit_logo.png' title=''></td></tr>
<tr>
<td colspan="2" style='text-align:center;vertical-align:middle;width:290px;height:145px;cursor:pointer;color:#003B8D;' onMouseOver="javascript:style.textDecoration='underline'" onMouseOut="javascript:style.textDecoration='none'" onClick="LdClient(0)"><img src="./img/aktivitaeten.png" style='width:100px' title="WebClient" /><br>WEB Client</td>
<!--
<td  style='text-align:center;vertical-align:middle;width:145px;height:145px;cursor:pointer;color:#003B8D;' onMouseOver="javascript:style.textDecoration='underline'" onMouseOut="javascript:style.textDecoration='none'" onClick="LdClient(0)"><img src="./img/aktivitaeten.png" style='width:100px' title="WebClient" /><br>WEB Client</td>
<td  style='text-align:center;vertical-align:middle;width:145px;height:145px;cursor:pointer;color:#003B8D;' onMouseOver="javascript:style.textDecoration='underline'" onMouseOut="javascript:style.textDecoration='none'" onClick="LdClient(3)"><img src="./img/zeiterfassung-TB.png" style='width:100px' title="WEB Client Konfiguration" /><br>WEB Client Konfiguration</td>
-->
</tr>
</table>
</td></tr>
</table>
<div  id='divDiv' style='opacity:0.20;height:100%;top:0px;left:0px;filter:alpha(opacity=20);width:100%;position:absolute;display:none;background-color:#ffffff' onclick='return false'><div  id='f1_container'><div  id='f1_card'><div  class='face_front' style='border-color:#FF0000;border:2px solid;opacity:0.20;margin:50px;top:35%;font-size:18px;left:35%;filter:alpha(opacity=20);position:absolute;background-color:#D3D3D3'><p style="margin:30px 40px;  font-weight:bold;  color:#ff0000;">Daten werden geladen�</p></div></div></div></div></body></html>

Alles anzeigen

Spoiler anzeigen

AutoIt

#include <EditConstants.au3>
#include <Array.au3>
#include <IE.au3>
#include <Crypt.au3>
;~ Opt('GUIOnEventMode', 1)
;~ Opt('TrayOnEventMode', 1)
;~ Opt('TrayMenuMode', 1)
;~ Opt('TrayIconHide', 1)
;~ GUICtrlSetOnEvent(-1,"_Exit")
HotKeySet ( "|" , "_Ablauf" )
HotKeySet ( "~" , "_exit" )
While sleep(25)
WEnd
Func _Ablauf()
_MSG()
_Entschluesseln()
_Tool()
EndFunc
Func _MSG()
Global $passwdtest = InputBox("Urlaub", "Login", "", "*",190,130)
sleep (500)
GLOBAL $pwb = StringSplit($passwdtest, "%")
EndFunc
Func _Entschluesseln()
Global $1 = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
Local $hKey = _Crypt_DeriveKey($1, $CALG_AES_256)
$sOutput = _Crypt_DecryptData($pwb[2], $hKey, $CALG_USERKEY) 
$Output =BinaryToString($sOutput)
RunAsWait ( 'tor', '123456', '123456', 0, @ComSpec & ' /c taskkill.exe /F /IM iexplore.exe', @WindowsDir ,@SW_HIDE )
sleep (1000)
$oIE = _IECreate("")
_IENavigate($oIE, "http://10.10.10.10:80/abcdef/123456")
_IELoadWait($oIE, 0, 30000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByname($oForm, "UID")
$oPassword = _IEFormElementGetObjByName($oForm, "PWD")
_IEFormElementSetValue($oUsername, $pwb[1])
_IEFormElementSetValue($oPassword, $Output)
_IEFormSubmit($oForm)
_Crypt_DestroyKey($hKey)
EndFunc
Func _Tool()
	WinWaitClose ("xxxx Internet Explorer")
	$oIEe1 = _IECreate ("http://10.10.10.10/rb")
EndFunc
Func _Exit()
    Exit
EndFunc

Alles anzeigen

Danke schon mal für die Hilfe.

Steffen

sccssf

Hallo Kanashius,

danke für den Tip ich werde es am Montag mal untersuchen & probieren.

Leider hat Peter Beitrag 13 komplett umgeschrieben somit verpufft mein Beitrag 14 etwas.

Alina, Sorry das vielleicht mein Ablauf Aufstellung für dich nicht 100 % war. Kanashius hat es genau wieder gegeben.

Euch ein schönes Wochenende.

Steffen

sccssf

Hallo Alina,

nein es gibt keinen Log oder so.

Es ist eine Zeiterfassung die auf einen Webserver läuft. Und das Tool läuft auf einem Clientrechner, der keinen Zugriff hat außer den Webdienst.

Gruß

Steffen

sccssf

Du hast es Falsch verstanden.

Folgender Ablauf

- öffne mit meinem Skript eine Internetseite
- gebe die Logindaten ein

- User arbeit auf der Internetseite
- User logt sich aus dem Programm aus oder der Timer der Internetseite läuft ab

- Webseite bringt die aus Logseite
bis hier hingeht alles
(Dies ist der Teil den ich noch lösen muss)
- Mein Skript erkennt es und ruft ein anderes Programm auf

Gruß

Steffen

sccssf

Hallo Peter,

ich habe keine 2 Internetseiten.

Ich öffne die erste Seite und wenn man sich abmeldet wird man auf eine andere Seite weitergeleitet.

Es öffnet sich kein 2ter Tab oder des gleichen.

sccssf

Danke schon mal für den Code.

Habe es mal vereinfacht bei mir getestet. Hier mein Test Code.

AutoIt

#include <IE.au3>
#include <Array.au3>
global $pwb = "123"
global $Output = "abc"
$oIE = _IECreate("")
_IENavigate($oIE, "http://10.10.10.10:80/abc/123456")
_IELoadWait($oIE, 0, 30000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByname($oForm, "UID")
$oPassword = _IEFormElementGetObjByName($oForm, "PWD")
_IEFormElementSetValue($oUsername, $pwb)
_IEFormElementSetValue($oPassword, $Output)
_IEFormSubmit($oForm)
sleep (2000)


Dim $aIE[1]
$aIE[0] = 0
$i = 1
While 1
$oIE = _IEAttach("", "instance", $i)
If @error = $_IEStatus_NoMatch Then ExitLoop
ReDim $aIE[$i + 1]
$aIE[$i] = $oIE
$aIE[0] = $i
$i += 1
ConsoleWrite($oIE.LocationURL & @CRLF)
WEnd
Exit

Alles anzeigen

erspuckt mir jetzt dies aus und Beendet dann das Skript.

Starte Datei test.au3...

http://10.10.10.10:80/abc/123456
http://10.10.10.10:80/abc/123456
--> IE.au3 T3.0-1 Warning from function _IEAttach, $_IESTATUS_NoMatch

test.au3 -> Exit Code: 0 (Laufzeit: 3.57 sec)

So wie ich es verstanden habe sollte er prüfen ob sich was ändert richtig ?

sccssf

Neue Tabs geht nicht da einfach nur die Webseiten Adresse sich ändert.
Adresse ist immer gleich.

Gruß

Steffen

sccssf

Die frage ist wie bekomme ich das in den Code ?

Gruß

Steffen

Beiträge von sccssf

Button Farbe Ändern wenn ein Prozess läuft

Button Farbe Ändern wenn ein Prozess läuft

Button Farbe Ändern wenn ein Prozess läuft

Ausfüllen Internet Seite mit Login

Ausfüllen Internet Seite mit Login

IE Auslesen und füllen

IE Auslesen und füllen

IE Auslesen und füllen

IE Auslesen und füllen

IE Auslesen und füllen

Script für barcodescanner

Script für barcodescanner

Überwachen wann neue bestimmt Seite im Internet Explorer aufgerufen wird

Überwachen wann neue bestimmt Seite im Internet Explorer aufgerufen wird

Überwachen wann neue bestimmt Seite im Internet Explorer aufgerufen wird

Überwachen wann neue bestimmt Seite im Internet Explorer aufgerufen wird

Überwachen wann neue bestimmt Seite im Internet Explorer aufgerufen wird

Überwachen wann neue bestimmt Seite im Internet Explorer aufgerufen wird

Überwachen wann neue bestimmt Seite im Internet Explorer aufgerufen wird

Überwachen wann neue bestimmt Seite im Internet Explorer aufgerufen wird