#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Icons\ico.ico
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <imagesearch2015.au3>
#include <TabConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiScrollBars.au3>
#include <EditConstants.au3>
#include "GUIScrollbars_Ex.au3"
#include <File.au3>
#include <Process.au3>

;Ab hier die zu in der Exe integrierenden Datein
DirCreate(@ScriptDir & "\pix\")
DirCreate(@ScriptDir & "\Anleitung VPN Starter\")
DirCreate(@ScriptDir & "\Icons\")
DirCreate(@ScriptDir & "\bat files\Teststadt2\")
FileInstall("ImageSearch2015.au3", @ScriptDir & "\ImageSearch2015.au3", 0)
FileInstall("ImageSearchDLLx32.dll", @ScriptDir & "\ImageSearchDLLx32.dll", 0)
FileInstall("ImageSearchDLLx64.dll", @ScriptDir & "\ImageSearchDLLx64.dll", 0)
FileInstall("msvcr110.dll", @ScriptDir & "\msvcr110.dll", 0)
FileInstall("msvcr110d.dll", @ScriptDir & "\msvcr110d.dll", 0)
FileInstall("pix\Teststadt3.png", @ScriptDir & "\pix\Teststadt3.png", 0)
FileInstall("pix\openc.png", @ScriptDir & "\pix\openc.png", 0)
FileInstall("pix\Verbindung.png", @ScriptDir & "\pix\Verbindung.png", 0)

FileInstall("Anleitung VPN Starter\Ausloggen.JPG", @ScriptDir & "\Anleitung VPN Starter\Ausloggen.JPG", 1)
FileInstall("Anleitung VPN Starter\Beenden Speichern.JPG", @ScriptDir & "\Anleitung VPN Starter\Beenden Speichern.JPG", 1)
FileInstall("Anleitung VPN Starter\BHKW suche.JPG", @ScriptDir & "\Anleitung VPN Starter\BHKW suche.JPG", 1)
FileInstall("Anleitung VPN Starter\BHKWs.JPG", @ScriptDir & "\Anleitung VPN Starter\BHKWs.JPG", 1)
FileInstall("Anleitung VPN Starter\Teststadt1.JPG", @ScriptDir & "\Anleitung VPN Starter\Teststadt1.JPG", 1)
FileInstall("Anleitung VPN Starter\Donauwörth.JPG", @ScriptDir & "\Anleitung VPN Starter\Donauwörth.JPG", 1)
FileInstall("Anleitung VPN Starter\eCatcher auswahl.JPG", @ScriptDir & "\Anleitung VPN Starter\eCatcher auswahl.JPG", 1)
FileInstall("Anleitung VPN Starter\eCatcher starten.JPG", @ScriptDir & "\Anleitung VPN Starter\eCatcher starten.JPG", 1)
FileInstall("Anleitung VPN Starter\eCatcher Verbinden.JPG", @ScriptDir & "\Anleitung VPN Starter\eCatcher Verbinden.JPG", 1)
FileInstall("Anleitung VPN Starter\History.JPG", @ScriptDir & "\Anleitung VPN Starter\History.JPG", 1)
FileInstall("Anleitung VPN Starter\InteliMonitor Icon.JPG", @ScriptDir & "\Anleitung VPN Starter\InteliMonitor Icon.JPG", 1)
FileInstall("Anleitung VPN Starter\InteliMonitor.JPG", @ScriptDir & "\Anleitung VPN Starter\InteliMonitor.JPG", 1)
FileInstall("Anleitung VPN Starter\Teststadt5 BHKW auswahl.JPG", @ScriptDir & "\Anleitung VPN Starter\Teststadt5 BHKW auswahl.JPG", 1)
FileInstall("Anleitung VPN Starter\Teststadt5.JPG", @ScriptDir & "\Anleitung VPN Starter\Teststadt5.JPG", 1)
FileInstall("Anleitung VPN Starter\Teststadt2.JPG", @ScriptDir & "\Anleitung VPN Starter\Teststadt2.JPG", 1)
FileInstall("Anleitung VPN Starter\Teststadt3.JPG", @ScriptDir & "\Anleitung VPN Starter\Teststadt3.JPG", 1)
FileInstall("Anleitung VPN Starter\Settings.JPG", @ScriptDir & "\Anleitung VPN Starter\Settings.JPG", 1)
FileInstall("Anleitung VPN Starter\Teststadt7.JPG", @ScriptDir & "\Anleitung VPN Starter\Teststadt7.JPG", 1)
FileInstall("Anleitung VPN Starter\Stunden 1.JPG", @ScriptDir & "\Anleitung VPN Starter\Stunden 1.JPG", 1)
FileInstall("Anleitung VPN Starter\Stunden 2,5.jpg", @ScriptDir & "\Anleitung VPN Starter\Stunden 2,5.jpg", 1)
FileInstall("Anleitung VPN Starter\Stunden 2.jpg", @ScriptDir & "\Anleitung VPN Starter\Stunden 2.jpg", 1)
FileInstall("Anleitung VPN Starter\Stunden 3,5.jpg", @ScriptDir & "\Anleitung VPN Starter\Stunden 3,5.jpg", 1)
FileInstall("Anleitung VPN Starter\Stunden 3.JPG", @ScriptDir & "\Anleitung VPN Starter\Stunden 3.JPG", 1)
FileInstall("Anleitung VPN Starter\Teststadt6.JPG", @ScriptDir & "\Anleitung VPN Starter\Teststadt6.JPG", 1)
FileInstall("Anleitung VPN Starter\VPN Connect EXIT PW.JPG", @ScriptDir & "\Anleitung VPN Starter\VPN Connect EXIT PW.JPG", 1)
FileInstall("Anleitung VPN Starter\VPN Connect EXIT.JPG", @ScriptDir & "\Anleitung VPN Starter\VPN Connect EXIT.JPG", 1)
FileInstall("Anleitung VPN Starter\VPN Connect.JPG", @ScriptDir & "\Anleitung VPN Starter\VPN Connect.JPG", 1)
FileInstall("Anleitung VPN Starter\VPN Donaueschinegen.JPG", @ScriptDir & "\Anleitung VPN Starter\VPN Donaueschinegen.JPG", 1)
FileInstall("Anleitung VPN Starter\VPN Teststadt2.JPG", @ScriptDir & "\Anleitung VPN Starter\VPN Teststadt2.JPG", 1)
FileInstall("Anleitung VPN Starter\VPN.JPG", @ScriptDir & "\Anleitung VPN Starter\VPN.JPG", 1)

FileInstall("Icons\eCatcher.exe-0.jpg", @ScriptDir & "\Icons\eCatcher.exe-0.jpg", 1)
FileInstall("Icons\InteliMonitor.exe-0.jpg", @ScriptDir & "\Icons\InteliMonitor.exe-0.jpg", 1)
FileInstall("Icons\ipseca.exe-0.jpg", @ScriptDir & "\Icons\ipseca.exe-0.jpg", 1)
FileInstall("\bat files\Teststadt2\Connect.bat", @ScriptDir & "\bat files\Teststadt2\Connect.bat", 1)
FileInstall("\bat files\Teststadt2\Disconnect.bat", @ScriptDir & "\bat files\Teststadt2\Disconnect.bat", 1)
FileInstall("\bat files\Teststadt2\Status.bat", @ScriptDir & "\bat files\Teststadt2\Status.bat", 1)
;ende der in der Exe integrierenden Datein

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

$Form1_1 = GUICreate("VPN Automatik", 858, 332, 324, 201)
$Tab1 = GUICtrlCreateTab(16, 48, 641, 257)
$TabSheet1 = GUICtrlCreateTabItem("Automatisch")
$Button1 = GUICtrlCreateButton("Teststadt1", 52, 97, 121, 33)
$Button2 = GUICtrlCreateButton("Teststadt2", 52, 137, 121, 33)
$Button3 = GUICtrlCreateButton("Teststadt3", 52, 177, 121, 33)
$Button4 = GUICtrlCreateButton("Teststadt4", 196, 137, 121, 33)
$Button5 = GUICtrlCreateButton("Teststadt5", 196, 97, 123, 33)
$Button6 = GUICtrlCreateButton("Teststadt6", 52, 217, 121, 33)
$Button7 = GUICtrlCreateButton("Teststadt7", 52, 257, 121, 33)
$Checkbox1 = GUICtrlCreateCheckbox("BHKW 1", 328, 80, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("BHKW 3", 328, 112, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Inteli Mains", 328, 128, 97, 17)
$Label9 = GUICtrlCreateLabel("BHKW2 ist immer angewäht", 328, 97, 136, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$TabSheet2 = GUICtrlCreateTabItem("Händisch")
$Button18 = GUICtrlCreateButton("Anleitung", 176, 97, 59, 33)
$Button20 = GUICtrlCreateButton("Anleitung", 176, 137, 59, 33)
$Button21 = GUICtrlCreateButton("Anleitung", 176, 177, 59, 33)
$Button22 = GUICtrlCreateButton("Anleitung", 368, 97, 59, 33)
$Button23 = GUICtrlCreateButton("Anleitung", 368, 137, 59, 33)
$Button24 = GUICtrlCreateButton("Anleitung", 368, 177, 59, 33)
$Button25 = GUICtrlCreateButton("Anleitung", 560, 97, 59, 33)
$Label2 = GUICtrlCreateLabel("Teststadt1", 32, 104, 143, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Teststadt2", 96, 144, 77, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Teststadt4", 256, 104, 108, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("KA Teststadt3", 72, 184, 103, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("Teststadt5", 272, 144, 89, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("Teststadt6", 280, 184, 83, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("Teststadt7", 480, 104, 75, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$TabSheet3 = GUICtrlCreateTabItem("NEA´s")
$Button99 = GUICtrlCreateButton("Teststadt8-Teststadt9", 44, 97, 121, 33)
$Button100 = GUICtrlCreateButton("Teststadt8-Teststadt10", 44, 137, 121, 33)
GUICtrlCreateTabItem("")
$Button15 = GUICtrlCreateButton("InteliMonitor", 704, 104, 123, 25)
$Button16 = GUICtrlCreateButton("eCatcher", 704, 176, 123, 25)
$Button17 = GUICtrlCreateButton("ShrewSoft VPN Client", 704, 248, 123, 25)
$Label1 = GUICtrlCreateLabel("Verbindung´s aufbau mit BHKW´s (Steuerung Comap/Motortech)", 56, 8, 750, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Icon1 = GUICtrlCreateIcon("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe", -1, 744, 64, 32, 32)
$Icon2 = GUICtrlCreateIcon("C:\Program Files (x86)\eCatcher-Talk2M\eCatcher.exe", -1, 744, 136, 32, 32)
$Icon3 = GUICtrlCreateIcon("C:\Program Files\ShrewSoft\VPN Client\ipseca.exe", -1, 744, 208, 32, 32)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$m_sWindow = WinGetTitle("VPN Connect - KA_Teststadt1_Edel.vpn")
$m_sWindow2 = WinGetTitle("VPN Connect - A-7917-Teststadt2 SSO Maschinenwartung.pcf")
$m_sMyString = "tunnel enabled"

$ort1 = "\\edeltech\Comap\Sites\"
$ort3 = "C:\Users\Public\Documents\ComAp PC Suite\Sites\"
$ini = "\SiteDef.ini"
$ini2 = "SiteWindow.ini"
$ort2 = "C:\Users\Public\Documents\ComAp PC Suite\Sites\"
$suchen = "Connection="
$suchen2 = "Name="
$suchen3 = "WindowMode="
$bhkw1 = "enabled1="
$bhkw3 = "enabled3="
$bhkw4 = "enabled4="
$var = "InteliMonitor.exe"

Global $y1 = 0, $x1 = 0
Global $y2 = 0, $x2 = 0
Global $y5 = 0, $x5 = 0
Global $search = 0

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1 ;Teststadt1
			Run("C:\Program Files\ShrewSoft\VPN Client\ipsecc.exe -r KA_Teststadt1_Edel.vpn -a")
			WinActivate("VPN Connect - KA_Teststadt1_Edel.vpn")
			WinWaitActive("VPN Connect - KA_Teststadt1_Edel.vpn")
			$datei2 = ($ort1 & $ini2)
			$def6 = "WindowMode=1"
			For $i2 = 0 To _FileCountLines($datei2)
				$text2 = FileReadLine($datei2, $i2)
				If StringInStr($text2, $suchen3) <> 0 Then
					_FileWriteToLine($datei2, $i2, $def6, 1)
				EndIf
			Next
			$datei = ($ort1 & "Wartung Teststadt1" & $ini)
			$def = "Connection=Internet bridge"
			$def2 = "Name=IP Teststadt1"
			For $i = 0 To _FileCountLines($datei)
				$text = FileReadLine($datei, $i)
				If StringInStr($text, $suchen) <> 0 Then
					_FileWriteToLine($datei, $i, $def, 1)
				ElseIf StringInStr($text, $suchen2) <> 0 Then
					_FileWriteToLine($datei, $i, $def2, 1)
				EndIf
			Next
			While (1)
				If WinActive($m_sWindow) Then
					$m_gString = StringInStr(WinGetText($m_sWindow), $m_sMyString)
					If $m_gString Then
						Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")
						WinActivate("InteliMonitor")
						WinWaitActive("InteliMonitor")
						WinSetState("InteliMonitor", "", @SW_MAXIMIZE)
						$search = _ImageSearch("pix/openc.png", 1, $x5, $y5, 10)
						If $search = 1 Then
							Sleep(500)
						Else
							ConsoleWrite("Fail!" & @CRLF)
						EndIf
						Sleep(2000)
						ClipPut("Wartung Teststadt1")
						Send("^v")
						Sleep(500)
						Send("{TAB 5}")
						Sleep(2000)
						Send("{ENTER}")
						Sleep(2000)
						Send("{ENTER}")
						ExitLoop
					EndIf
				EndIf
				Sleep(10)
			WEnd
		Case $Button2 ; Teststadt2
			Run(@ScriptDir & "\bat files\Teststadt2\Connect.bat")
			Sleep(500)
			$datei2 = ($ort1 & $ini2)
			$def6 = "WindowMode=1"
			For $i2 = 0 To _FileCountLines($datei2)
				$text2 = FileReadLine($datei2, $i2)
				If StringInStr($text2, $suchen3) <> 0 Then
					_FileWriteToLine($datei2, $i2, $def6, 1)
				EndIf
			Next
			$datei = ($ort1 & "Wartung Teststadt2" & $ini)
			$def = "Connection=Internet bridge"
			$def2 = "Name=IP Teststadt2"
			For $i = 0 To _FileCountLines($datei)
				$text = FileReadLine($datei, $i)
				If StringInStr($text, $suchen) <> 0 Then
					_FileWriteToLine($datei, $i, $def, 1)
				ElseIf StringInStr($text, $suchen2) <> 0 Then
					_FileWriteToLine($datei, $i, $def2, 1)
				EndIf
			Next
			While (1)
				Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")
				WinActivate("InteliMonitor")
				WinWaitActive("InteliMonitor")
				WinSetState("InteliMonitor", "", @SW_MAXIMIZE)
				$search = _ImageSearch("pix/openc.png", 1, $x5, $y5, 10)
				If $search = 1 Then
					Sleep(500)
				Else
					ConsoleWrite("Fail!" & @CRLF)
				EndIf
				ClipPut("Wartung Teststadt2")
				Send("^v")
				Sleep(500)
				Send("{TAB 5}")
				Sleep(2000)
				Send("{ENTER}")
				Sleep(2000)
				Send("{ENTER}")
				ExitLoop
				Sleep(3000)
				While (1)
					If Not ProcessExists("InteliMonitor.exe") Then
						Run(@ScriptDir & "\bat files\Teststadt2\Disconnect.bat")
					Else
						Sleep(10)
					EndIf
				WEnd
			WEnd

		Case $Button3 ;KA Teststadt3
			While (1)
				Run("C:\Program Files (x86)\eCatcher-Talk2M\eCatcher.exe")
				WinActivate("eCatcher")
				WinWaitActive("eCatcher")
				Sleep(2000)
				ClipPut("BLABLA PW")
				Send("^v")
				Send("{ENTER}")
				Sleep(5000)
				$search = _ImageSearch("pix/Teststadt3.png", 1, $x1, $y1, 10)
				If $search = 1 Then
					MouseClick("left", $x1, $y1, 1, 1)
				EndIf
				Sleep(1000)
				$search = _ImageSearch("pix/Verbindung.png", 1, $x2, $y2, 10)
				If $search = 1 Then
					MouseClick("left", $x2, $y2, 1, 1)
				EndIf
				Sleep(1000)
				$datei2 = ($ort1 & $ini2)
				$def6 = "WindowMode=1"
				For $i2 = 0 To _FileCountLines($datei2)
					$text2 = FileReadLine($datei2, $i2)
					If StringInStr($text2, $suchen3) <> 0 Then
						_FileWriteToLine($datei2, $i2, $def6, 1)
					EndIf
				Next
				$datei = ($ort1 & "Wartung Teststadt3" & $ini)
				$def = "Connection=Internet bridge"
				$def2 = "Name=IP Teststadt3"
				For $i = 0 To _FileCountLines($datei)
					$text = FileReadLine($datei, $i)
					If StringInStr($text, $suchen) <> 0 Then
						_FileWriteToLine($datei, $i, $def, 1)
					ElseIf StringInStr($text, $suchen2) <> 0 Then
						_FileWriteToLine($datei, $i, $def2, 1)
					EndIf
				Next
				Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")
				WinActivate("InteliMonitor")
				WinWaitActive("InteliMonitor")
				WinSetState("InteliMonitor", "", @SW_MAXIMIZE)
				$search = _ImageSearch("pix/openc.png", 1, $x5, $y5, 10)
				If $search = 1 Then
					Sleep(500)
				Else
					ConsoleWrite("Fail!" & @CRLF)
				EndIf
				Sleep(2000)
				ClipPut("Wartung Teststadt3")
				Send("^v")
				Sleep(500)
				Send("{TAB 5}")
				Sleep(2000)
				Send("{ENTER}")
				Sleep(2000)
				Send("{ENTER}")
				ExitLoop
				Sleep(10)
			WEnd
		Case $Button4 ;Teststadt4
			While (1)
				$datei2 = ($ort1 & $ini2)
				$def6 = "WindowMode=1"
				For $i2 = 0 To _FileCountLines($datei2)
					$text2 = FileReadLine($datei2, $i2)
					If StringInStr($text2, $suchen3) <> 0 Then
						_FileWriteToLine($datei2, $i2, $def6, 1)
					EndIf
				Next
				$datei = ($ort1 & "Wartung Donauwörth" & $ini)
				$def = "Connection=Air gate"
				$def2 = "Name=Airgate.comap.cz"
				For $i = 0 To _FileCountLines($datei)
					$text = FileReadLine($datei, $i)
					If StringInStr($text, $suchen) <> 0 Then
						_FileWriteToLine($datei, $i, $def, 1)
					ElseIf StringInStr($text, $suchen2) <> 0 Then
						_FileWriteToLine($datei, $i, $def2, 1)
					EndIf
				Next
				Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")
				WinActivate("InteliMonitor")
				WinWaitActive("InteliMonitor")
				WinSetState("InteliMonitor", "", @SW_MAXIMIZE)
				$search = _ImageSearch("pix/openc.png", 1, $x5, $y5, 10)
				If $search = 1 Then
					Sleep(500)
					ConsoleWrite("ok!" & @CRLF)
				Else
					ConsoleWrite("Fail!" & @CRLF)
				EndIf
				Sleep(2000)
				ClipPut("Wartung Donauwörth")
				Send("^v")
				Sleep(2000)
				Send("{ENTER}")
				Sleep(2000)
				Send("{ENTER}")
				ExitLoop
				Sleep(10)
			WEnd

		Case $Button5 ;Teststadt5
			While (1)

				;Case $Checkbox1
				If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
					$def3 = "enabled1=TRUE"
				Else
					$def3 = "enabled1=FALSE"
				EndIf
				;Case $Checkbox2
				If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
					$def4 = "enabled3=TRUE"
				Else
					$def4 = "enabled3=FALSE"
				EndIf
				;Case $Checkbox3

				If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then
					$def5 = "enabled4=TRUE"
				Else
					$def5 = "enabled4=FALSE"
				EndIf
				$datei2 = ($ort1 & $ini2)
				$def6 = "WindowMode=1"
				For $i2 = 0 To _FileCountLines($datei2)
					$text2 = FileReadLine($datei2, $i2)
					If StringInStr($text2, $suchen3) <> 0 Then
						_FileWriteToLine($datei2, $i2, $def6, 1)
					EndIf
				Next
				$datei = ($ort1 & "Wartung Teststadt5" & $ini)
				$def = "Connection=Internet bridge"
				$def2 = "Name=IBkaTeststadt5.ddns.net"
				For $i = 0 To _FileCountLines($datei)
					$text = FileReadLine($datei, $i)
					If StringInStr($text, $suchen) <> 0 Then
						_FileWriteToLine($datei, $i, $def, 1)
					ElseIf StringInStr($text, $suchen2) <> 0 Then
						_FileWriteToLine($datei, $i, $def2, 1)
					ElseIf StringInStr($text, $bhkw1) <> 0 Then
						_FileWriteToLine($datei, $i, $def3, 1)
					ElseIf StringInStr($text, $bhkw3) <> 0 Then
						_FileWriteToLine($datei, $i, $def4, 1)
					ElseIf StringInStr($text, $bhkw4) <> 0 Then
						_FileWriteToLine($datei, $i, $def5, 1)
					EndIf
				Next
				Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")
				WinActivate("InteliMonitor")
				WinWaitActive("InteliMonitor")
				WinSetState("InteliMonitor", "", @SW_MAXIMIZE)
				$search = _ImageSearch("pix/openc.png", 1, $x5, $y5, 10)
				If $search = 1 Then
					Sleep(500)
				Else
					ConsoleWrite("Fail!" & @CRLF)
				EndIf
				Sleep(2000)
				ClipPut("Wartung Teststadt5")
				Send("^v")
				Sleep(500)
				Send("{TAB 5}")
				Sleep(2000)
				Send("{ENTER}")
				Sleep(2000)
				Send("{ENTER}")
				ExitLoop
				Sleep(10)
			WEnd
		Case $Button6 ;Teststadt6
			While (1)
				$datei2 = ($ort1 & $ini2)
				$def6 = "WindowMode=1"
				For $i2 = 0 To _FileCountLines($datei2)
					$text2 = FileReadLine($datei2, $i2)
					If StringInStr($text2, $suchen3) <> 0 Then
						_FileWriteToLine($datei2, $i2, $def6, 1)
					EndIf
				Next
				$datei = ($ort1 & "Wartung Teststadt6" & $ini)
				$def = "Connection=Air gate"
				$def2 = "Name=Airgate.comap.cz"
				For $i = 0 To _FileCountLines($datei)
					$text = FileReadLine($datei, $i)
					If StringInStr($text, $suchen) <> 0 Then
						_FileWriteToLine($datei, $i, $def, 1)
					ElseIf StringInStr($text, $suchen2) <> 0 Then
						_FileWriteToLine($datei, $i, $def2, 1)
					EndIf
				Next
				Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")
				WinActivate("InteliMonitor")
				WinWaitActive("InteliMonitor")
				WinSetState("InteliMonitor", "", @SW_MAXIMIZE)
				$search = _ImageSearch("pix/openc.png", 1, $x5, $y5, 10)
				If $search = 1 Then
					Sleep(500)
				Else
					ConsoleWrite("Fail!" & @CRLF)
				EndIf
				Sleep(2000)
				ClipPut("Wartung Teststadt6")
				Send("^v")
				Sleep(500)
				Send("{TAB 5}")
				Sleep(2000)
				Send("{ENTER}")
				Sleep(2000)
				Send("{ENTER}")
				ExitLoop
				Sleep(10)
			WEnd
		Case $Button7 ;Teststadt7
			While (1)
				$datei2 = ($ort1 & $ini2)
				$def6 = "WindowMode=1"
				For $i2 = 0 To _FileCountLines($datei2)
					$text2 = FileReadLine($datei2, $i2)
					If StringInStr($text2, $suchen3) <> 0 Then
						_FileWriteToLine($datei2, $i2, $def6, 1)
					EndIf
				Next
				$datei = ($ort1 & "Wartung Teststadt7" & $ini)
				$def = "Connection=Internet bridge"
				$def2 = "Name=IP Adresse Teststadt7"
				For $i = 0 To _FileCountLines($datei)
					$text = FileReadLine($datei, $i)
					If StringInStr($text, $suchen) <> 0 Then
						_FileWriteToLine($datei, $i, $def, 1)
					ElseIf StringInStr($text, $suchen2) <> 0 Then
						_FileWriteToLine($datei, $i, $def2, 1)
					EndIf
				Next
				Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")
				WinActivate("InteliMonitor")
				WinWaitActive("InteliMonitor")
				WinSetState("InteliMonitor", "", @SW_MAXIMIZE)
				$search = _ImageSearch("pix/openc.png", 1, $x5, $y5, 10)
				If $search = 1 Then
					Sleep(500)
				Else
					ConsoleWrite("Fail!" & @CRLF)
				EndIf
				Sleep(2000)
				ClipPut("Wartung Teststadt7")
				Send("^v")
				Sleep(500)
				Send("{TAB 5}")
				Sleep(2000)
				Send("{ENTER}")
				Sleep(2000)
				Send("{ENTER}")
				ExitLoop
				Sleep(10)
			WEnd
		Case $Button15
			Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")
		Case $Button16
			Run("C:\Program Files (x86)\eCatcher-Talk2M\eCatcher.exe")
		Case $Button17
			Run("C:\Program Files\ShrewSoft\VPN Client\ipseca.exe")
		Case $Button18

			$Form2_1 = GUICreate("Anleitung Teststadt1", 1071, 863, 198, 58)
			_GUIScrollbars_Generate($Form2_1, 863, 1200)
			$Group1 = GUICtrlCreateGroup("Verbindungs Aufbau", 8, 8, 449, 1152)
			$Label1 = GUICtrlCreateLabel("Starten der VPN Software", 16, 32, 126, 17)
			$Button17 = GUICtrlCreateButton("ShrewSoft VPN Client", 152, 24, 115, 25)
			$Label2 = GUICtrlCreateLabel("Auswahl der VPN Verbindung", 16, 64, 144, 17)
			$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\VPN Donaueschinegen.JPG", 16, 80, 348, 28)
			$Label3 = GUICtrlCreateLabel("Starten der Verbindung mit Connect", 16, 128, 172, 17)
			$Pic2 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\VPN Connect.JPG", 16, 144, 44, 44)
			$Label4 = GUICtrlCreateLabel("nach erfolgreichen Verbinungs Aufbau, InteliMonitor Starten", 16, 200, 285, 17)
			$Label5 = GUICtrlCreateLabel("", 16, 240, 4, 4)
			$Button15 = GUICtrlCreateButton("InteliMonitor", 312, 192, 75, 25)
			$Label6 = GUICtrlCreateLabel("Nacht Start von InteliMonitor Wartung KA Donaueschinen suchen und auswählen", 16, 232, 391, 17)
			$Pic3 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\BHKWs.JPG", 16, 256, 148, 540)
			$Label7 = GUICtrlCreateLabel("Verbindungs Typ auswählen", 16, 808, 138, 17)
			$Pic4 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Teststadt1.JPG", 16, 832, 276, 236)
			$Label8 = GUICtrlCreateLabel("und mit Connect Verbindung Aufbauen", 16, 1080, 187, 17)
			$Pic5 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Comap Connect.JPG", 16, 1096, 180, 52)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			$Group2 = GUICtrlCreateGroup("Verbindung Beenden", 512, 8, 481, 472)
			$Label9 = GUICtrlCreateLabel("InteliMonitor Verbindung Trennen mit dem Icon", 520, 32, 224, 17)
			$Pic6 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Ausloggen.JPG", 520, 48, 36, 36)
			$Label10 = GUICtrlCreateLabel("Jenach bedarf Speichen oder ohne Beenden", 520, 96, 217, 17)
			$Pic7 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Beenden Speichern.JPG", 520, 120, 460, 156)
			$Label11 = GUICtrlCreateLabel("Verbindung mit VPN Software Beenden durch Disconnect und Exit", 520, 328, 318, 17)
			$Pic8 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\VPN Disconnect.JPG", 520, 352, 156, 44)
			$Pic9 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\VPN Connect EXIT.JPG", 520, 416, 276, 36)
			$Label12 = GUICtrlCreateLabel("Danach InteliMonitor Schliessen", 520, 296, 156, 17)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			GUISetState(@SW_SHOW)
			#EndRegion ### END Koda GUI section ###

			While 1
				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						GUIDelete($Form2_1)
						ExitLoop
					Case $Button17
						Run("C:\Program Files\ShrewSoft\VPN Client\ipseca.exe")
					Case $Button15
						Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")

				EndSwitch
			WEnd
		Case $Button20

			$Form2_2 = GUICreate("Anleitung Teststadt2", 1071, 863, 372, 104)
			_GUIScrollbars_Generate($Form2_2, 863, 1500)
			$Group1 = GUICtrlCreateGroup("Verbindungs Aufbau", 8, 8, 449, 2000)
			$Label1 = GUICtrlCreateLabel("Starten der VPN Software", 16, 32, 126, 17)
			$Button17 = GUICtrlCreateButton("ShrewSoft VPN Client", 152, 24, 115, 25)
			$Label2 = GUICtrlCreateLabel("Auswahl der VPN Verbindung", 16, 64, 144, 17)
			$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\VPN Teststadt2.JPG", 16, 80, 388, 28)
			$Label3 = GUICtrlCreateLabel("Starten der Verbindung mit Connect", 16, 128, 172, 17)
			$Pic2 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\VPN Connect.JPG", 16, 144, 44, 44)
			$Label4 = GUICtrlCreateLabel("nach erfolgreichen Verbinungs Aufbau, InteliMonitor Starten", 16, 512, 285, 17)
			$Label5 = GUICtrlCreateLabel("", 16, 240, 4, 4)
			$Button15 = GUICtrlCreateButton("InteliMonitor", 304, 504, 75, 25)
			$Label6 = GUICtrlCreateLabel("Nacht Start von InteliMonitor Wartung KA Donaueschinen suchen und auswählen", 16, 528, 391, 17)
			$Pic3 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\BHKWs.JPG", 16, 552, 148, 540)
			$Label7 = GUICtrlCreateLabel("Verbindungs Typ auswählen", 16, 1096, 138, 17)
			$Pic4 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Teststadt1.JPG", 16, 1120, 276, 236)
			$Label8 = GUICtrlCreateLabel("und mit Connect Verbindung Aufbauen", 16, 1352, 187, 17)
			$Pic5 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Comap Connect.JPG", 16, 1368, 180, 52)
			$Label13 = GUICtrlCreateLabel("Benutzer: edelgmbh", 16, 216, 98, 17)
			$Label14 = GUICtrlCreateLabel("Passwort: Ewgmtis5", 128, 216, 98, 17)
			$Label15 = GUICtrlCreateLabel("danach Benutzer und Passwort eingeben und mit Connect Bestätigen", 16, 192, 332, 17)
			$Pic10 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\VPN Connect EXIT PW.JPG", 16, 240, 316, 260)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			$Group2 = GUICtrlCreateGroup("Verbindung Beenden", 512, 8, 481, 472)
			$Label9 = GUICtrlCreateLabel("InteliMonitor Verbindung Trennen mit dem Icon", 520, 32, 224, 17)
			$Pic6 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Ausloggen.JPG", 520, 48, 36, 36)
			$Label10 = GUICtrlCreateLabel("Jenach bedarf Speichen oder ohne Beenden", 520, 96, 217, 17)
			$Pic7 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Beenden Speichern.JPG", 520, 120, 460, 156)
			$Label11 = GUICtrlCreateLabel("Verbindung mit VPN Software Beenden durch Disconnect und Exit", 520, 328, 318, 17)
			$Pic8 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\VPN Disconnect.JPG", 520, 352, 156, 44)
			$Pic9 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\VPN Connect EXIT.JPG", 520, 416, 276, 36)
			$Label12 = GUICtrlCreateLabel("Danach InteliMonitor Schliessen", 520, 296, 156, 17)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			GUISetState(@SW_SHOW)
			#EndRegion ### END Koda GUI section ###

			While 1
				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						GUIDelete($Form2_2)
						ExitLoop
					Case $Button17
						Run("C:\Program Files (x86)\eCatcher-Talk2M\eCatcher.exe")
					Case $Button15
						Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")


				EndSwitch
			WEnd
		Case $Button21

			$Form2_3 = GUICreate("Anleitung KA Teststadt3", 1071, 853, 714, 44)
			_GUIScrollbars_Generate($Form2_3, 863, 2000)
			$Group1 = GUICtrlCreateGroup("Verbindungs Aufbau", 8, 0, 449, 2000)
			$Label1 = GUICtrlCreateLabel("Starten der VPN Software", 16, 24, 126, 17)
			$Button17 = GUICtrlCreateButton("eCatcher-Talk2M", 152, 16, 115, 25)
			$Label2 = GUICtrlCreateLabel("Anmelde Daten eintragen", 16, 56, 124, 17)
			$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\eCatcher starten.JPG", 16, 152, 428, 364)
			$Label3 = GUICtrlCreateLabel("Nach Klicken auf Login im Verbindungs Fenster BHKW auswählen ", 16, 528, 321, 17)
			$Pic2 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\eCatcher Verbinden.JPG", 16, 944, 132, 44)
			$Label4 = GUICtrlCreateLabel("nach erfolgreichen Verbinungs Aufbau, InteliMonitor Starten", 16, 992, 285, 17)
			$Label5 = GUICtrlCreateLabel("", 16, 232, 4, 4)
			$Button15 = GUICtrlCreateButton("InteliMonitor", 312, 984, 75, 25)
			$Label6 = GUICtrlCreateLabel("Nacht Start von InteliMonitor Wartung KA Teststadt3 suchen und auswählen", 16, 1024, 369, 17)
			$Pic3 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\BHKWs.JPG", 16, 1048, 148, 540)
			$Label7 = GUICtrlCreateLabel("Verbindungs Typ auswählen", 16, 1600, 138, 17)
			$Pic4 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Teststadt1.JPG", 16, 1624, 276, 236)
			$Label8 = GUICtrlCreateLabel("und mit Connect Verbindung Aufbauen", 16, 1872, 187, 17)
			$Pic5 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Comap Connect.JPG", 16, 1888, 180, 52)
			$Label13 = GUICtrlCreateLabel("Konto: SER-Kiebingen", 16, 80, 110, 17)
			$Label14 = GUICtrlCreateLabel("Benutzername: edel", 16, 104, 98, 17)
			$Label15 = GUICtrlCreateLabel("Passwort: edel2015", 16, 128, 97, 17)
			$Pic10 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\eCatcher auswahl.JPG", 16, 544, 420, 356)
			$Label16 = GUICtrlCreateLabel("und anschliessend durch klicken auf Verbindung, die Verbindung aufbauen", 16, 920, 359, 17)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			$Group2 = GUICtrlCreateGroup("Verbindung Beenden", 512, 0, 481, 472)
			$Label9 = GUICtrlCreateLabel("InteliMonitor Verbindung Trennen mit dem Icon", 520, 24, 224, 17)
			$Pic6 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Ausloggen.JPG", 520, 40, 36, 36)
			$Label10 = GUICtrlCreateLabel("Jenach bedarf Speichen oder ohne Beenden", 520, 88, 217, 17)
			$Pic7 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Beenden Speichern.JPG", 520, 112, 460, 156)
			$Label11 = GUICtrlCreateLabel("Verbindung mit VPN Software Beenden durch Verbindung beenden und  Fenster schliessen", 520, 320, 436, 17)
			$Pic8 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\eCatcher Verbindung beenden.JPG", 520, 344, 156, 44)
			$Label12 = GUICtrlCreateLabel("Danach InteliMonitor Schliessen", 520, 288, 156, 17)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			GUISetState(@SW_SHOW)
			#EndRegion ### END Koda GUI section ###

			While 1
				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						GUIDelete($Form2_3)
						ExitLoop
					Case $Button17
						Run("C:\Program Files\ShrewSoft\VPN Client\ipseca.exe")
					Case $Button15
						Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")

				EndSwitch
			WEnd
		Case $Button22

			$Form2_4 = GUICreate("Anleitung Teststadt4", 1071, 853, 663, 71)
			_GUIScrollbars_Generate($Form2_4, 863, 2000)
			$Group1 = GUICtrlCreateGroup("Verbindungs Aufbau", 8, 0, 449, 944)
			$Label4 = GUICtrlCreateLabel("InteliMonitor Starten", 16, 24, 98, 17)
			$Label5 = GUICtrlCreateLabel("", 16, 232, 4, 4)
			$Button15 = GUICtrlCreateButton("InteliMonitor", 120, 16, 75, 25)
			$Label6 = GUICtrlCreateLabel("Nacht Start von InteliMonitor Wartung Teststadt4 suchen und auswählen", 16, 40, 374, 17)
			$Pic3 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\BHKWs.JPG", 16, 64, 148, 540)
			$Label7 = GUICtrlCreateLabel("Verbindungs Typ auswählen", 16, 608, 138, 17)
			$Pic4 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Donauwörth.JPG", 16, 632, 276, 236)
			$Label8 = GUICtrlCreateLabel("und mit Connect Verbindung Aufbauen", 16, 864, 187, 17)
			$Pic5 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Comap Connect.JPG", 16, 880, 180, 52)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			$Group2 = GUICtrlCreateGroup("Verbindung Beenden", 512, 0, 481, 320)
			$Label9 = GUICtrlCreateLabel("InteliMonitor Verbindung Trennen mit dem Icon", 520, 24, 224, 17)
			$Pic6 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Ausloggen.JPG", 520, 40, 36, 36)
			$Label10 = GUICtrlCreateLabel("Jenach bedarf Speichen oder ohne Beenden", 520, 88, 217, 17)
			$Pic7 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Beenden Speichern.JPG", 520, 112, 460, 156)
			$Label12 = GUICtrlCreateLabel("Danach InteliMonitor Schliessen", 520, 288, 156, 17)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			GUISetState(@SW_SHOW)
			#EndRegion ### END Koda GUI section ###

			While 1
				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						GUIDelete($Form2_4)
						ExitLoop
					Case $Button15
						Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")


				EndSwitch
			WEnd
		Case $Button23

			$Form2_5 = GUICreate("Anleitung Teststadt5", 1071, 881, 559, 72)
			_GUIScrollbars_Generate($Form2_5, 863, 2000)
			$Group1 = GUICtrlCreateGroup("Verbindungs Aufbau", 8, 0, 449, 1228)
			$Label4 = GUICtrlCreateLabel("InteliMonitor Starten", 16, 24, 98, 17)
			$Label5 = GUICtrlCreateLabel("", 16, 232, 4, 4)
			$Button15 = GUICtrlCreateButton("InteliMonitor", 120, 16, 75, 25)
			$Label6 = GUICtrlCreateLabel("Nacht Start von InteliMonitor Wartung Teststadt5 suchen und auswählen", 16, 40, 360, 17)
			$Pic3 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\BHKWs.JPG", 16, 64, 148, 540)
			$Label7 = GUICtrlCreateLabel("Verbindungs Typ auswählen", 16, 608, 138, 17)
			$Pic4 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Teststadt5.JPG", 16, 624, 276, 236)
			$Label8 = GUICtrlCreateLabel("und mit Connect Verbindung Aufbauen", 16, 1144, 187, 17)
			$Pic5 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Comap Connect.JPG", 16, 1168, 180, 52)
			$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Teststadt5 BHKW auswahl.JPG", 16, 896, 436, 236)
			$Label1 = GUICtrlCreateLabel("BHKW mit Hacken setzen wählen", 16, 872, 165, 17)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			$Group2 = GUICtrlCreateGroup("Verbindung Beenden", 512, 0, 481, 320)
			$Label9 = GUICtrlCreateLabel("InteliMonitor Verbindung Trennen mit dem Icon", 520, 24, 224, 17)
			$Pic6 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Ausloggen.JPG", 520, 40, 36, 36)
			$Label10 = GUICtrlCreateLabel("Jenach bedarf Speichen oder ohne Beenden", 520, 88, 217, 17)
			$Pic7 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Beenden Speichern.JPG", 520, 112, 460, 156)
			$Label12 = GUICtrlCreateLabel("Danach InteliMonitor Schliessen", 520, 288, 156, 17)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			GUISetState(@SW_SHOW)
			#EndRegion ### END Koda GUI section ###

			While 1
				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						GUIDelete($Form2_5)
						ExitLoop
					Case $Button15
						Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")


				EndSwitch
			WEnd
		Case $Button24

			$Form2_6 = GUICreate("Anleitung Teststadt6", 1071, 853, 663, 71)
			_GUIScrollbars_Generate($Form2_6, 863, 2000)
			$Group1 = GUICtrlCreateGroup("Verbindungs Aufbau", 8, 0, 449, 944)
			$Label4 = GUICtrlCreateLabel("InteliMonitor Starten", 16, 24, 98, 17)
			$Label5 = GUICtrlCreateLabel("", 16, 232, 4, 4)
			$Button15 = GUICtrlCreateButton("InteliMonitor", 120, 16, 75, 25)
			$Label6 = GUICtrlCreateLabel("Nacht Start von InteliMonitor Wartung Teststadt6 suchen und auswählen", 16, 40, 355, 17)
			$Pic3 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\BHKWs.JPG", 16, 64, 148, 540)
			$Label7 = GUICtrlCreateLabel("Verbindungs Typ auswählen", 16, 608, 138, 17)
			$Pic4 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Teststadt6.JPG", 16, 632, 276, 236)
			$Label8 = GUICtrlCreateLabel("und mit Connect Verbindung Aufbauen", 16, 864, 187, 17)
			$Pic5 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Comap Connect.JPG", 16, 880, 180, 52)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			$Group2 = GUICtrlCreateGroup("Verbindung Beenden", 512, 0, 481, 320)
			$Label9 = GUICtrlCreateLabel("InteliMonitor Verbindung Trennen mit dem Icon", 520, 24, 224, 17)
			$Pic6 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Ausloggen.JPG", 520, 40, 36, 36)
			$Label10 = GUICtrlCreateLabel("Jenach bedarf Speichen oder ohne Beenden", 520, 88, 217, 17)
			$Pic7 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Beenden Speichern.JPG", 520, 112, 460, 156)
			$Label12 = GUICtrlCreateLabel("Danach InteliMonitor Schliessen", 520, 288, 156, 17)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			GUISetState(@SW_SHOW)
			#EndRegion ### END Koda GUI section ###

			While 1
				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						GUIDelete($Form2_6)
						ExitLoop
					Case $Button15
						Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")


				EndSwitch
			WEnd
		Case $Button25

			$Form2_7 = GUICreate("Anleitung ST. Vinzenz", 1071, 853, 663, 71)
			_GUIScrollbars_Generate($Form2_7, 863, 2000)
			$Group1 = GUICtrlCreateGroup("Verbindungs Aufbau", 8, 0, 449, 944)
			$Label4 = GUICtrlCreateLabel("InteliMonitor Starten", 16, 24, 98, 17)
			$Label5 = GUICtrlCreateLabel("", 16, 232, 4, 4)
			$Button15 = GUICtrlCreateButton("InteliMonitor", 120, 16, 75, 25)
			$Label6 = GUICtrlCreateLabel("Nacht Start von InteliMonitor Wartung ST. Vinzenz suchen und auswählen", 16, 40, 356, 17)
			$Pic3 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\BHKWs.JPG", 16, 64, 148, 540)
			$Label7 = GUICtrlCreateLabel("Verbindungs Typ auswählen", 16, 608, 138, 17)
			$Pic4 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Teststadt7.JPG", 16, 632, 276, 236)
			$Label8 = GUICtrlCreateLabel("und mit Connect Verbindung Aufbauen", 16, 864, 187, 17)
			$Pic5 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Comap Connect.JPG", 16, 880, 180, 52)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			$Group2 = GUICtrlCreateGroup("Verbindung Beenden", 512, 0, 481, 320)
			$Label9 = GUICtrlCreateLabel("InteliMonitor Verbindung Trennen mit dem Icon", 520, 24, 224, 17)
			$Pic6 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Ausloggen.JPG", 520, 40, 36, 36)
			$Label10 = GUICtrlCreateLabel("Jenach bedarf Speichen oder ohne Beenden", 520, 88, 217, 17)
			$Pic7 = GUICtrlCreatePic(@ScriptDir & "\Anleitung VPN Starter\Beenden Speichern.JPG", 520, 112, 460, 156)
			$Label12 = GUICtrlCreateLabel("Danach InteliMonitor Schliessen", 520, 288, 156, 17)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			GUISetState(@SW_SHOW)
			#EndRegion ### END Koda GUI section ###


			While 1
				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						GUIDelete($Form2_7)
						ExitLoop
					Case $Button15
						Run("C:\Program Files (x86)\ComAp PC Suite\InteliMonitor\InteliMonitor.exe")


				EndSwitch
			WEnd
	EndSwitch
WEnd