Initial commit
This commit is contained in:
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 9.00
|
||||
# Visual Studio 2005
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Coldstrt", "Coldstrt\Coldstrt.vbproj", "{02D43006-2DED-40BD-9D87-6E7AEBCDA661}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{02D43006-2DED-40BD-9D87-6E7AEBCDA661}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{02D43006-2DED-40BD-9D87-6E7AEBCDA661}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{02D43006-2DED-40BD-9D87-6E7AEBCDA661}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{02D43006-2DED-40BD-9D87-6E7AEBCDA661}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
Binary file not shown.
@@ -0,0 +1,400 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
|
||||
Module Coldstart
|
||||
|
||||
Dim edk_User As String
|
||||
Dim edk_Password As String
|
||||
Dim edk_DocID As String
|
||||
Dim edk_Folder As String
|
||||
Dim edk_Datum As String
|
||||
Dim edk_Auftragnr As String
|
||||
Dim edk_Dokumenttyp As String
|
||||
Dim edk_Belegart As String
|
||||
|
||||
Dim str_URL As String
|
||||
Dim cold_Server As String
|
||||
|
||||
Dim arr_Args() As String
|
||||
Dim g_oIE As SHDocVw.InternetExplorer 'Benötigt Verweis "Microsoft Internet Controls" (shdocvw.dll)
|
||||
Dim Conn As New DB_Connection
|
||||
Dim ErrCD As Integer
|
||||
|
||||
'Fallback für alte Version DDE
|
||||
Dim viewmode As String 'ODWEK (Internet Explorer) oder DDE (coldstrt_old.exe)
|
||||
Dim appPath As String = Path.GetDirectoryName([Assembly].GetEntryAssembly().Location)
|
||||
Dim coldGui As String
|
||||
Dim coldSystem As String
|
||||
|
||||
Sub Main(ByVal CmdArgs() As String)
|
||||
'test()
|
||||
'Exit Sub
|
||||
ErrCD = 0
|
||||
Parse_Commandline(CmdArgs)
|
||||
Start_ODWEK()
|
||||
Environment.Exit(ErrCD)
|
||||
End Sub
|
||||
|
||||
Sub test()
|
||||
|
||||
Dim shellWindows As SHDocVw.ShellWindows = New SHDocVw.ShellWindows
|
||||
Dim i As Integer
|
||||
For i = 0 To shellWindows.Count
|
||||
MsgBox(shellWindows.Item(i).ToString)
|
||||
Next
|
||||
'IE Aufruf
|
||||
g_oIE = New SHDocVw.InternetExplorer
|
||||
g_oIE.AddressBar = False
|
||||
'g_oIE.PutProperty()
|
||||
g_oIE.Navigate("http://www.shub.ch", shellWindows, , )
|
||||
g_oIE.PutProperty("LocationName", "Hallo")
|
||||
|
||||
'g_oIE.Navigate(str_URL, vFlags, vTarget, vPost, vHeaders)
|
||||
g_oIE.Visible = True
|
||||
Exit Sub
|
||||
Process.Start("http://www.shub.ch")
|
||||
g_oIE = New SHDocVw.InternetExplorer
|
||||
str_URL = "http://www.shub.ch"
|
||||
g_oIE.Navigate(str_URL)
|
||||
g_oIE.Visible = True
|
||||
Exit Sub
|
||||
Dim cpostdata As String
|
||||
|
||||
Dim aByte(0) As Byte
|
||||
ReDim aByte(0)
|
||||
Dim cSep As String = "&"
|
||||
PackBytes(aByte, cpostdata)
|
||||
|
||||
'Vorbereitung IE Aufruf
|
||||
Dim vPost As Object = aByte
|
||||
Dim vFlags As Object = Nothing
|
||||
Dim vTarget As Object = Nothing
|
||||
Dim vHeaders As Object
|
||||
vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
|
||||
'IE Aufruf
|
||||
g_oIE = New SHDocVw.InternetExplorer
|
||||
str_URL = "http://www.shub.ch"
|
||||
g_oIE.Navigate(str_URL, vFlags, vTarget, vPost, vHeaders)
|
||||
g_oIE.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub Start_ODWEK()
|
||||
'DB Verbindung für Settings
|
||||
Try
|
||||
Dim Sqlcmd As SqlCommand = New SqlCommand()
|
||||
Sqlcmd.CommandText = "Select viewmode from applikation_odwek"
|
||||
Sqlcmd.CommandType = CommandType.Text
|
||||
Dim dtToReturn As DataTable
|
||||
Dim dtToReturn2 As DataTable = New DataTable
|
||||
Dim sdaAdapter As SqlDataAdapter
|
||||
Dim sdaAdapter2 As SqlDataAdapter = New SqlDataAdapter(Sqlcmd)
|
||||
Sqlcmd.Connection = New SqlConnection(conn.scoDBConnection)
|
||||
sdaAdapter2.Fill(dtToReturn2)
|
||||
|
||||
viewmode = dtToReturn2.Rows(0).Item("viewmode")
|
||||
|
||||
'Sqlcmd.Connection.Close()
|
||||
sdaAdapter2 = Nothing
|
||||
' Sqlcmd = Nothing
|
||||
dtToReturn = Nothing
|
||||
' Dim Sqlcmd As SqlCommand = New SqlCommand()
|
||||
If FolderExist("c:\os") Then
|
||||
Sqlcmd.CommandText = "Select coldgui, coldsystem from applikation where Applikationsnr = 2"
|
||||
Else
|
||||
Sqlcmd.CommandText = "Select coldgui, coldsystem from applikation where Applikationsnr = 1"
|
||||
End If
|
||||
Sqlcmd.CommandType = CommandType.Text
|
||||
dtToReturn = New DataTable()
|
||||
sdaAdapter = New SqlDataAdapter(Sqlcmd)
|
||||
'Sqlcmd.Connection = New SqlConnection(Conn.scoDBConnection)
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
coldgui = dtToReturn.Rows(0).Item("coldgui")
|
||||
coldSystem = dtToReturn.Rows(0).Item("coldsystem")
|
||||
Sqlcmd.Connection.Close()
|
||||
sdaAdapter = Nothing
|
||||
Sqlcmd = Nothing
|
||||
dtToReturn = Nothing
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler beim Einlesen der Programmparameter von der Datenbank")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Environment.Exit(1)
|
||||
End Try
|
||||
Select Case UCase(viewmode)
|
||||
Case "DDE"
|
||||
'Coldstrtold.exe aufrufen (aus EdokaApp übernommen)
|
||||
Try
|
||||
Dim rc As Integer 'Return Code
|
||||
Select Case edk_Belegart
|
||||
Case "HOST"
|
||||
'Nova
|
||||
rc = Shell(appPath + "\coldstrtold.exe" + " /e " + coldGui + " /S " + coldSystem + " /U " + edk_User + " /P " + edk_Password + " /f " + edk_Folder + " /d " + edk_DocID + " /t " + edk_Datum + " /b HOST", AppWinStyle.Hide, False)
|
||||
Exit Sub
|
||||
Case "UVM"
|
||||
rc = Shell(appPath + "\coldstrtold.exe" + " /e " + coldGui + " /S " + coldSystem + " /U " + edk_User + " /P " + edk_Password + " /f " + edk_Folder + " /d " + edk_DocID + " /t " + edk_Datum + " /b UVM /a " + Trim(edk_Auftragnr) + " /g " + Trim(edk_Dokumenttyp), AppWinStyle.Hide, False)
|
||||
Exit Sub
|
||||
Case "ZV"
|
||||
rc = Shell(appPath + "\coldstrtold.exe" + " /e " + coldGui + " /S " + coldSystem + " /U " + edk_User + " /P " + edk_Password + " /f " + edk_Folder + " /d " + edk_DocID + " /t " + edk_Datum + " /b ZV /a " + Trim(edk_Auftragnr) + " /g " + Trim(edk_Dokumenttyp), AppWinStyle.Hide, False)
|
||||
Exit Sub
|
||||
Case Else 'EDOKA
|
||||
rc = Shell(appPath + "\coldstrtold.exe" + " /e " + coldGui + " /S " + coldSystem + " /U " + edk_User + " /P " + edk_Password + " /f " + edk_Folder + " /d " + edk_DocID + " /t " + edk_Datum, AppWinStyle.Hide, False)
|
||||
Exit Sub
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("DDE Version Error: " + ex.Message)
|
||||
'MsgBox("Error: " + ex.Message)
|
||||
End Try
|
||||
|
||||
Case Else
|
||||
'Oeffnen des Browsers mit den entsprechenden Parametern
|
||||
Try
|
||||
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_Migration_ODWEK"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = New SqlConnection(Conn.scoDBConnection)
|
||||
|
||||
Dim aByte(0) As Byte
|
||||
ReDim aByte(0)
|
||||
Dim cSep As String = "&"
|
||||
|
||||
' Vorbereitung der Parameter
|
||||
Dim cFunction As String = "_function=retrieve"
|
||||
Dim cUser As String = "_user=" + edk_User
|
||||
Dim cPassword As String = "_password=" + edk_Password
|
||||
Dim cLogoff As String = "_logoff=1"
|
||||
'Dim cLogoff As String = "_function=logoff"
|
||||
Dim cServer As String = ""
|
||||
|
||||
|
||||
Dim cpostdata As String
|
||||
Dim cFolder As String
|
||||
'Unterscheidung Belegart
|
||||
Select Case UCase(Trim(edk_Belegart))
|
||||
Case "HOST"
|
||||
|
||||
' KC 29.05.2008
|
||||
' CHECK for MIGRATION
|
||||
|
||||
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Belegart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, UCase(Trim(edk_Belegart))))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "01.01.2008"))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@DokumentID", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_DocID))
|
||||
|
||||
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
|
||||
str_URL = dtToReturn.Rows(0).Item("URL")
|
||||
cold_Server = dtToReturn.Rows(0).Item("server")
|
||||
viewmode = dtToReturn.Rows(0).Item("viewmode")
|
||||
|
||||
cServer = "_server=" + cold_Server
|
||||
'Basis String erstellen
|
||||
cpostdata = cFunction & cSep & cLogoff & cSep & cServer & cSep & cUser & cSep & cPassword & cSep
|
||||
cFolder = "_folder=" + dtToReturn.Rows(0).Item("HOST")
|
||||
If cFolder = "_folder=TGKB Kundenoutput ab 01.08.2008" Then
|
||||
cpostdata = cpostdata & cSep & "Dokumenten-Id=" & edk_DocID & cSep & cFolder & cSep _
|
||||
& "Erstellung od. Valuta Datum=" & edk_Datum & cSep & "Erstellung od. Valuta Datum2=" & edk_Datum
|
||||
Else
|
||||
cpostdata = cpostdata & cSep & "Dokument-Id=" & edk_DocID & cSep & cFolder & cSep _
|
||||
& "Erstellung od. Valuta Datum=" & edk_Datum & cSep & "Erstellung od. Valuta Datum2=" & edk_Datum
|
||||
End If
|
||||
|
||||
cpostdata = cpostdata & cSep & "Dokument-Id=" & edk_DocID & cSep & cFolder & cSep _
|
||||
& "Erstellung od. Valuta Datum=" & edk_Datum & cSep & "Erstellung od. Valuta Datum2=" & edk_Datum
|
||||
|
||||
|
||||
Case "UVM"
|
||||
|
||||
' KC 29.05.2008
|
||||
' CHECK for MIGRATION
|
||||
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Belegart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, UCase(Trim(edk_Belegart))))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_Datum))
|
||||
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
|
||||
str_URL = dtToReturn.Rows(0).Item("URL")
|
||||
cold_Server = dtToReturn.Rows(0).Item("server")
|
||||
viewmode = dtToReturn.Rows(0).Item("viewmode")
|
||||
|
||||
cServer = "_server=" + cold_Server
|
||||
'Basis String erstellen
|
||||
cpostdata = cFunction & cSep & cLogoff & cSep & cServer & cSep & cUser & cSep & cPassword
|
||||
cFolder = "_folder=" + dtToReturn.Rows(0).Item("UVM")
|
||||
|
||||
cpostdata = cpostdata & cSep & "Auftrag-Nr.=" & edk_Auftragnr & cSep & "Dokumenttyp=" & edk_Dokumenttyp _
|
||||
& cSep & cFolder & cSep & "Dokument-ID=" & edk_DocID & cSep & "Erfassungsdatum=" & edk_Datum & cSep _
|
||||
& "Erfassungsdatum2=" & edk_Datum
|
||||
|
||||
Case "ZV"
|
||||
' KC 29.05.2008
|
||||
' CHECK for MIGRATION
|
||||
|
||||
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Belegart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, UCase(Trim(edk_Belegart))))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_Datum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@DokumentID", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "''"))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ZVnrdot", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_Dokumenttyp))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ZVnrdoc", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_DocID))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ZVnrauf", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_Auftragnr))
|
||||
|
||||
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
|
||||
str_URL = dtToReturn.Rows(0).Item("URL")
|
||||
cold_Server = dtToReturn.Rows(0).Item("server")
|
||||
viewmode = dtToReturn.Rows(0).Item("viewmode")
|
||||
|
||||
cServer = "_server=" + cold_Server
|
||||
'Basis String erstellen
|
||||
cpostdata = cFunction & cSep & cLogoff & cSep & cServer & cSep & cUser & cSep & cPassword
|
||||
cFolder = "_folder=" + dtToReturn.Rows(0).Item("ZV")
|
||||
|
||||
cpostdata = cpostdata & cSep & "Auftrag-Nr.=" & edk_Auftragnr & cSep & "Dokumenttyp=" & edk_Dokumenttyp _
|
||||
& cSep & cFolder & cSep & "Paginator=" & edk_DocID
|
||||
'RGL 20080325 Kein Datum bei ZV Belegen
|
||||
'& cSep & cFolder & cSep & "Paginator=" & edk_DocID & cSep & "Valuta od. Archiv Datum=" & edk_Datum _
|
||||
'& cSep & "Valuta od. Archiv Datum2=" & edk_Datum
|
||||
Case Else 'EDOKA
|
||||
' KC 29.05.2008
|
||||
' CHECK for MIGRATION
|
||||
|
||||
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Belegart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "EDOKA"))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@DokumentID", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_DocID))
|
||||
|
||||
|
||||
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
|
||||
str_URL = dtToReturn.Rows(0).Item("URL")
|
||||
cold_Server = dtToReturn.Rows(0).Item("server")
|
||||
viewmode = dtToReturn.Rows(0).Item("viewmode")
|
||||
|
||||
cServer = "_server=" + cold_Server
|
||||
'Basis String erstellen
|
||||
cpostdata = cFunction & cSep & cLogoff & cSep & cServer & cSep & cUser & cSep & cPassword
|
||||
cFolder = "_folder=" + dtToReturn.Rows(0).Item("EDOKAFolder")
|
||||
|
||||
cpostdata = cpostdata & cSep & "Dokument-Id=" & edk_DocID & cSep & cFolder & cSep & "Archiv-Datum=" _
|
||||
& edk_Datum & cSep & "Archiv-Datum2=" & edk_Datum
|
||||
End Select
|
||||
'DB aufräumen
|
||||
scmCmdToExecute.Connection.Close()
|
||||
sdaAdapter.Dispose()
|
||||
sdaAdapter = Nothing
|
||||
scmCmdToExecute.Dispose()
|
||||
scmCmdToExecute = Nothing
|
||||
dtToReturn.Dispose()
|
||||
dtToReturn = Nothing
|
||||
|
||||
'Packen für POST
|
||||
PackBytes(aByte, cpostdata)
|
||||
|
||||
'Vorbereitung IE Aufruf
|
||||
Dim vPost As Object = aByte
|
||||
Dim vFlags As Object = Nothing
|
||||
Dim vTarget As Object = Nothing
|
||||
Dim vHeaders As Object
|
||||
vPost = ASCIIEncoding.ASCII.GetBytes(cpostdata)
|
||||
|
||||
'vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
|
||||
vHeaders = "Content-Type: application/x-www-form-urlencoded, Cache-Control: no-cache"
|
||||
'IE Aufruf
|
||||
g_oIE = New SHDocVw.InternetExplorer
|
||||
g_oIE.AddressBar = False
|
||||
'g_oIE.Navigate2(str_URL + cpostdata)
|
||||
|
||||
'g_oIE.Navigate2(str_URL, Nothing, Nothing, vPost, vHeaders)
|
||||
g_oIE.Visible = True
|
||||
Catch ex As Exception
|
||||
|
||||
Console.WriteLine("Fehler beim öffnen des Internet Explorers")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Environment.Exit(1)
|
||||
Finally
|
||||
g_oIE = Nothing
|
||||
End Try
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub PackBytes(ByRef out_ByteArray() As Byte, ByVal in_PostData As String)
|
||||
Try
|
||||
Dim Byte_tmp = Len(in_PostData) - 1 ' Get rid of the null termination
|
||||
If Byte_tmp < 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
ReDim out_ByteArray(Byte_tmp)
|
||||
Dim i As Integer
|
||||
Dim str_tmp As String
|
||||
For i = 0 To Byte_tmp
|
||||
str_tmp = Mid(in_PostData, i + 1, 1)
|
||||
If str_tmp = Space(1) Then
|
||||
str_tmp = "+"
|
||||
End If
|
||||
out_ByteArray(i) = Asc(str_tmp)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler beim packen der POST Daten")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Environment.Exit(1)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Parse_Commandline(ByVal str_args() As String)
|
||||
Try
|
||||
Dim str_tmp As String = ""
|
||||
Dim i, ii As Integer
|
||||
For ii = 0 To UBound(str_args)
|
||||
str_tmp = str_tmp & str_args(ii) & " "
|
||||
Next
|
||||
If InStr(str_tmp, "/?") > 0 Or InStr(str_tmp, "-?") > 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
arr_Args = Split(str_tmp, "/")
|
||||
For i = LBound(arr_Args) To UBound(arr_Args)
|
||||
Select Case LCase(Left(arr_Args(i), 2))
|
||||
Case "? "
|
||||
End
|
||||
Case "u "
|
||||
edk_User = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "p "
|
||||
edk_Password = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "f "
|
||||
edk_Folder = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "d "
|
||||
edk_DocID = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "t "
|
||||
edk_datum = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "b "
|
||||
edk_Belegart = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "g "
|
||||
edk_Dokumenttyp = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "a "
|
||||
edk_Auftragnr = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case Else
|
||||
'ErrCD = 9
|
||||
End Select
|
||||
Next i
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler beim Auslesen der Befehlszeilen Argumente")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Environment.Exit(1)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function FolderExist(ByVal dn As String) As Boolean
|
||||
Try
|
||||
If System.IO.Directory.Exists(dn) Then FolderExist = True Else FolderExist = False
|
||||
Catch
|
||||
FolderExist = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,137 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>8.0.50727</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{02D43006-2DED-40BD-9D87-6E7AEBCDA661}</ProjectGuid>
|
||||
<OutputType>Exe</OutputType>
|
||||
<StartupObject>Coldstrt.Coldstart</StartupObject>
|
||||
<RootNamespace>Coldstrt</RootNamespace>
|
||||
<AssemblyName>Coldstrt</AssemblyName>
|
||||
<MyType>Console</MyType>
|
||||
<SccProjectName>
|
||||
</SccProjectName>
|
||||
<SccLocalPath>
|
||||
</SccLocalPath>
|
||||
<SccAuxPath>
|
||||
</SccAuxPath>
|
||||
<SccProvider>
|
||||
</SccProvider>
|
||||
<ManifestCertificateThumbprint>FDA52E3BB58DD05EADFC9FBD9EA40954A86CA95F</ManifestCertificateThumbprint>
|
||||
<ManifestKeyFile>Coldstrt_TemporaryKey.pfx</ManifestKeyFile>
|
||||
<GenerateManifests>true</GenerateManifests>
|
||||
<SignManifests>true</SignManifests>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationVersion>2.1.0.%2a</ApplicationVersion>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>Coldstrt.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>Coldstrt.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Xml" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="Coldstart.vb" />
|
||||
<Compile Include="Crypto.vb" />
|
||||
<Compile Include="db_connection.vb" />
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Coldstrt_TemporaryKey.pfx" />
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<COMReference Include="SHDocVw">
|
||||
<Guid>{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}</Guid>
|
||||
<VersionMajor>1</VersionMajor>
|
||||
<VersionMinor>1</VersionMinor>
|
||||
<Lcid>0</Lcid>
|
||||
<WrapperTool>tlbimp</WrapperTool>
|
||||
<Isolated>False</Isolated>
|
||||
</COMReference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
@@ -0,0 +1,23 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<StartArguments>"/b ZV /a TG0508100140000001 /g ZVS003-Erfassungsdaten /u tgsystkb /p tgsystkb /f TGKB ZV-Scanning Belege /t 31.07.08"</StartArguments>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<StartArguments>"/b ZV /a TG0508100140000001 /g ZVS003-Erfassungsdaten /u tgsystkb /p tgsystkb /f TGKB ZV-Scanning Belege /t 31.07.08"</StartArguments>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory>
|
||||
</InstallUrlHistory>
|
||||
<SupportUrlHistory>
|
||||
</SupportUrlHistory>
|
||||
<UpdateUrlHistory>
|
||||
</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory>
|
||||
</BootstrapperUrlHistory>
|
||||
<ApplicationRevision>1</ApplicationRevision>
|
||||
<FallbackCulture>de-DE</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
<ProjectView>ShowAllFiles</ProjectView>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
Binary file not shown.
@@ -0,0 +1,47 @@
|
||||
Module Crypto
|
||||
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
strBuff = ""
|
||||
Try
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
EncryptText = strBuff
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler beim Verschlüsseln")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Return strBuff
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
strBuff = ""
|
||||
Try
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
DecryptText = strBuff
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler beim Entschlüsseln")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Return strBuff
|
||||
End Try
|
||||
End Function
|
||||
End Module
|
||||
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:2.0.50727.832
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>false</MySubMain>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<ApplicationType>2</ApplicationType>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||
' die mit einer Assembly verknüpft sind.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("Coldstrt")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("DEVNET")>
|
||||
<Assembly: AssemblyProduct("Coldstrt")>
|
||||
<Assembly: AssemblyCopyright("Copyright © DEVNET 2008")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
|
||||
<Assembly: Guid("02be6d28-5072-40a1-9f85-2db3f072034e")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Hauptversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revision
|
||||
'
|
||||
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("2.1.0.0")>
|
||||
<Assembly: AssemblyFileVersion("2.1.0.0")>
|
||||
@@ -0,0 +1,62 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:2.0.50727.832
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'<summary>
|
||||
' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
'</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'<summary>
|
||||
' Returns the cached ResourceManager instance used by this class.
|
||||
'</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Coldstrt.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'<summary>
|
||||
' Overrides the current thread's CurrentUICulture property for all
|
||||
' resource lookups using this strongly typed resource class.
|
||||
'</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,117 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:2.0.50727.832
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "8.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
|
||||
|
||||
#Region "My.Settings Auto-Save Functionality"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.Coldstrt.My.MySettings
|
||||
Get
|
||||
Return Global.Coldstrt.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
@@ -0,0 +1,35 @@
|
||||
Imports System.IO
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class DB_Connection
|
||||
|
||||
Dim sConnectionString As String
|
||||
|
||||
Property scoDBConnection()
|
||||
Get
|
||||
Return Me.sConnectionString
|
||||
End Get
|
||||
Set(ByVal value)
|
||||
Me.sConnectionString = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Sub New()
|
||||
Try
|
||||
Dim fc As Integer = 0
|
||||
Dim oread As System.IO.StreamReader
|
||||
Dim mypath As String = Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) 'Benötigt System.Reflection
|
||||
oread = File.OpenText(mypath + "\" + "edokaconn.cfg")
|
||||
sConnectionString = oread.ReadLine
|
||||
sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
|
||||
sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
|
||||
oread.Close()
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler beim öffnen der Datei edokaconn.cfg")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Environment.Exit(1)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@@ -0,0 +1 @@
|
||||
<?xml version="1.0" encoding="utf-8"?><Configuration xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><DontShowAgainInSolution>false</DontShowAgainInSolution></Configuration>
|
||||
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 2012
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Coldstrt", "Coldstrt\Coldstrt.vbproj", "{02D43006-2DED-40BD-9D87-6E7AEBCDA661}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{02D43006-2DED-40BD-9D87-6E7AEBCDA661}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{02D43006-2DED-40BD-9D87-6E7AEBCDA661}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{02D43006-2DED-40BD-9D87-6E7AEBCDA661}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{02D43006-2DED-40BD-9D87-6E7AEBCDA661}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<!-- VSdocman config file for current project/solution.-->
|
||||
<activeProfile>default</activeProfile>
|
||||
<appSettings>
|
||||
</appSettings>
|
||||
</configuration>
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,10 @@
|
||||
""
|
||||
{
|
||||
"FILE_VERSION" = "9237"
|
||||
"ENLISTMENT_CHOICE" = "NEVER"
|
||||
"PROJECT_FILE_RELATIVE_PATH" = ""
|
||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROJECT"
|
||||
}
|
||||
@@ -0,0 +1,403 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
|
||||
Module Coldstart
|
||||
|
||||
Dim edk_User As String
|
||||
Dim edk_Password As String
|
||||
Dim edk_DocID As String
|
||||
Dim edk_Folder As String
|
||||
Dim edk_Datum As String
|
||||
Dim edk_Auftragnr As String
|
||||
Dim edk_Dokumenttyp As String
|
||||
Dim edk_Belegart As String
|
||||
|
||||
Dim str_URL As String
|
||||
Dim cold_Server As String
|
||||
|
||||
Dim arr_Args() As String
|
||||
Dim g_oIE As SHDocVw.InternetExplorer 'Benötigt Verweis "Microsoft Internet Controls" (shdocvw.dll)
|
||||
Dim Conn As New DB_Connection
|
||||
Dim ErrCD As Integer
|
||||
|
||||
'Fallback für alte Version DDE
|
||||
Dim viewmode As String 'ODWEK (Internet Explorer) oder DDE (coldstrt_old.exe)
|
||||
Dim appPath As String = Path.GetDirectoryName([Assembly].GetEntryAssembly().Location)
|
||||
Dim coldGui As String
|
||||
Dim coldSystem As String
|
||||
|
||||
Sub Main(ByVal CmdArgs() As String)
|
||||
'test()
|
||||
'Exit Sub
|
||||
ErrCD = 0
|
||||
Parse_Commandline(CmdArgs)
|
||||
Start_ODWEK()
|
||||
Environment.Exit(ErrCD)
|
||||
End Sub
|
||||
|
||||
Sub test()
|
||||
|
||||
Dim shellWindows As SHDocVw.ShellWindows = New SHDocVw.ShellWindows
|
||||
Dim i As Integer
|
||||
For i = 0 To shellWindows.Count
|
||||
MsgBox(shellWindows.Item(i).ToString)
|
||||
Next
|
||||
'IE Aufruf
|
||||
g_oIE = New SHDocVw.InternetExplorer
|
||||
g_oIE.AddressBar = False
|
||||
'g_oIE.PutProperty()
|
||||
g_oIE.Navigate("http://www.shub.ch", shellWindows, , )
|
||||
g_oIE.PutProperty("LocationName", "Hallo")
|
||||
|
||||
'g_oIE.Navigate(str_URL, vFlags, vTarget, vPost, vHeaders)
|
||||
g_oIE.Visible = True
|
||||
Exit Sub
|
||||
Process.Start("http://www.shub.ch")
|
||||
g_oIE = New SHDocVw.InternetExplorer
|
||||
str_URL = "http://www.shub.ch"
|
||||
g_oIE.Navigate(str_URL)
|
||||
g_oIE.Visible = True
|
||||
Exit Sub
|
||||
Dim cpostdata As String
|
||||
|
||||
Dim aByte(0) As Byte
|
||||
ReDim aByte(0)
|
||||
Dim cSep As String = "&"
|
||||
PackBytes(aByte, cpostdata)
|
||||
|
||||
'Vorbereitung IE Aufruf
|
||||
Dim vPost As Object = aByte
|
||||
Dim vFlags As Object = Nothing
|
||||
Dim vTarget As Object = Nothing
|
||||
Dim vHeaders As Object
|
||||
vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
|
||||
'IE Aufruf
|
||||
g_oIE = New SHDocVw.InternetExplorer
|
||||
str_URL = "http://www.shub.ch"
|
||||
g_oIE.Navigate(str_URL, vFlags, vTarget, vPost, vHeaders)
|
||||
g_oIE.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub Start_ODWEK()
|
||||
'DB Verbindung für Settings
|
||||
Try
|
||||
Dim Sqlcmd As SqlCommand = New SqlCommand()
|
||||
Sqlcmd.CommandText = "Select viewmode from applikation_odwek"
|
||||
Sqlcmd.CommandType = CommandType.Text
|
||||
Dim dtToReturn As DataTable
|
||||
Dim dtToReturn2 As DataTable = New DataTable
|
||||
Dim sdaAdapter As SqlDataAdapter
|
||||
Dim sdaAdapter2 As SqlDataAdapter = New SqlDataAdapter(Sqlcmd)
|
||||
Sqlcmd.Connection = New SqlConnection(conn.scoDBConnection)
|
||||
sdaAdapter2.Fill(dtToReturn2)
|
||||
|
||||
viewmode = dtToReturn2.Rows(0).Item("viewmode")
|
||||
|
||||
'Sqlcmd.Connection.Close()
|
||||
sdaAdapter2 = Nothing
|
||||
' Sqlcmd = Nothing
|
||||
dtToReturn = Nothing
|
||||
' Dim Sqlcmd As SqlCommand = New SqlCommand()
|
||||
If FolderExist("c:\os") Then
|
||||
Sqlcmd.CommandText = "Select coldgui, coldsystem from applikation where Applikationsnr = 2"
|
||||
Else
|
||||
Sqlcmd.CommandText = "Select coldgui, coldsystem from applikation where Applikationsnr = 1"
|
||||
End If
|
||||
Sqlcmd.CommandType = CommandType.Text
|
||||
dtToReturn = New DataTable()
|
||||
sdaAdapter = New SqlDataAdapter(Sqlcmd)
|
||||
'Sqlcmd.Connection = New SqlConnection(Conn.scoDBConnection)
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
coldgui = dtToReturn.Rows(0).Item("coldgui")
|
||||
coldSystem = dtToReturn.Rows(0).Item("coldsystem")
|
||||
Sqlcmd.Connection.Close()
|
||||
sdaAdapter = Nothing
|
||||
Sqlcmd = Nothing
|
||||
dtToReturn = Nothing
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler beim Einlesen der Programmparameter von der Datenbank")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Environment.Exit(1)
|
||||
End Try
|
||||
Select Case UCase(viewmode)
|
||||
Case "DDE"
|
||||
'Coldstrtold.exe aufrufen (aus EdokaApp übernommen)
|
||||
Try
|
||||
Dim rc As Integer 'Return Code
|
||||
Select Case edk_Belegart
|
||||
Case "HOST"
|
||||
'Nova
|
||||
rc = Shell(appPath + "\coldstrtold.exe" + " /e " + coldGui + " /S " + coldSystem + " /U " + edk_User + " /P " + edk_Password + " /f " + edk_Folder + " /d " + edk_DocID + " /t " + edk_Datum + " /b HOST", AppWinStyle.Hide, False)
|
||||
Exit Sub
|
||||
Case "UVM"
|
||||
rc = Shell(appPath + "\coldstrtold.exe" + " /e " + coldGui + " /S " + coldSystem + " /U " + edk_User + " /P " + edk_Password + " /f " + edk_Folder + " /d " + edk_DocID + " /t " + edk_Datum + " /b UVM /a " + Trim(edk_Auftragnr) + " /g " + Trim(edk_Dokumenttyp), AppWinStyle.Hide, False)
|
||||
Exit Sub
|
||||
Case "ZV"
|
||||
rc = Shell(appPath + "\coldstrtold.exe" + " /e " + coldGui + " /S " + coldSystem + " /U " + edk_User + " /P " + edk_Password + " /f " + edk_Folder + " /d " + edk_DocID + " /t " + edk_Datum + " /b ZV /a " + Trim(edk_Auftragnr) + " /g " + Trim(edk_Dokumenttyp), AppWinStyle.Hide, False)
|
||||
Exit Sub
|
||||
Case Else 'EDOKA
|
||||
rc = Shell(appPath + "\coldstrtold.exe" + " /e " + coldGui + " /S " + coldSystem + " /U " + edk_User + " /P " + edk_Password + " /f " + edk_Folder + " /d " + edk_DocID + " /t " + edk_Datum, AppWinStyle.Hide, False)
|
||||
Exit Sub
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("DDE Version Error: " + ex.Message)
|
||||
'MsgBox("Error: " + ex.Message)
|
||||
End Try
|
||||
|
||||
Case Else
|
||||
|
||||
'Oeffnen des Browsers mit den entsprechenden Parametern
|
||||
Try
|
||||
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_Migration_ODWEK"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = New SqlConnection(Conn.scoDBConnection)
|
||||
|
||||
Dim aByte(0) As Byte
|
||||
ReDim aByte(0)
|
||||
Dim cSep As String = "&"
|
||||
|
||||
' Vorbereitung der Parameter
|
||||
Dim cFunction As String = "_function=retrieve"
|
||||
Dim cUser As String = "_user=" + edk_User
|
||||
Dim cPassword As String = "_password=" + edk_Password
|
||||
Dim cLogoff As String = "_logoff=1"
|
||||
'Dim cLogoff As String = "_function=logoff"
|
||||
Dim cServer As String = ""
|
||||
|
||||
|
||||
Dim cpostdata As String
|
||||
Dim cFolder As String
|
||||
'Unterscheidung Belegart
|
||||
|
||||
Select Case UCase(Trim(edk_Belegart))
|
||||
Case "HOST"
|
||||
|
||||
' KC 29.05.2008
|
||||
' CHECK for MIGRATION
|
||||
|
||||
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Belegart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, UCase(Trim(edk_Belegart))))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "01.01.2008"))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@DokumentID", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_DocID))
|
||||
|
||||
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
|
||||
str_URL = dtToReturn.Rows(0).Item("URL")
|
||||
cold_Server = dtToReturn.Rows(0).Item("server")
|
||||
viewmode = dtToReturn.Rows(0).Item("viewmode")
|
||||
|
||||
cServer = "_server=" + cold_Server
|
||||
'Basis String erstellen
|
||||
cpostdata = cFunction & cSep & cLogoff & cSep & cServer & cSep & cUser & cSep & cPassword & cSep
|
||||
cFolder = "_folder=" + dtToReturn.Rows(0).Item("HOST")
|
||||
If cFolder = "_folder=TGKB Kundenoutput ab 01.08.2008" Then
|
||||
cpostdata = cpostdata & cSep & "Dokumenten-Id=" & edk_DocID & cSep & cFolder & cSep _
|
||||
& "Erstellung od. Valuta Datum=" & edk_Datum & cSep & "Erstellung od. Valuta Datum2=" & edk_Datum
|
||||
Else
|
||||
cpostdata = cpostdata & cSep & "Dokument-Id=" & edk_DocID & cSep & cFolder & cSep _
|
||||
& "Erstellung od. Valuta Datum=" & edk_Datum & cSep & "Erstellung od. Valuta Datum2=" & edk_Datum
|
||||
End If
|
||||
|
||||
cpostdata = cpostdata & cSep & "Dokument-Id=" & edk_DocID & cSep & cFolder & cSep _
|
||||
& "Erstellung od. Valuta Datum=" & edk_Datum & cSep & "Erstellung od. Valuta Datum2=" & edk_Datum
|
||||
|
||||
|
||||
Case "UVM"
|
||||
|
||||
' KC 29.05.2008
|
||||
' CHECK for MIGRATION
|
||||
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Belegart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, UCase(Trim(edk_Belegart))))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_Datum))
|
||||
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
|
||||
str_URL = dtToReturn.Rows(0).Item("URL")
|
||||
cold_Server = dtToReturn.Rows(0).Item("server")
|
||||
viewmode = dtToReturn.Rows(0).Item("viewmode")
|
||||
|
||||
cServer = "_server=" + cold_Server
|
||||
'Basis String erstellen
|
||||
cpostdata = cFunction & cSep & cLogoff & cSep & cServer & cSep & cUser & cSep & cPassword
|
||||
cFolder = "_folder=" + dtToReturn.Rows(0).Item("UVM")
|
||||
|
||||
cpostdata = cpostdata & cSep & "Auftrag-Nr.=" & edk_Auftragnr & cSep & "Dokumenttyp=" & edk_Dokumenttyp _
|
||||
& cSep & cFolder & cSep & "Dokument-ID=" & edk_DocID & cSep & "Erfassungsdatum=" & edk_Datum & cSep _
|
||||
& "Erfassungsdatum2=" & edk_Datum
|
||||
|
||||
Case "ZV"
|
||||
' KC 29.05.2008
|
||||
' CHECK for MIGRATION
|
||||
|
||||
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Belegart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, UCase(Trim(edk_Belegart))))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_Datum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@DokumentID", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "''"))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ZVnrdot", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_Dokumenttyp))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ZVnrdoc", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_DocID))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ZVnrauf", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_Auftragnr))
|
||||
|
||||
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
|
||||
str_URL = dtToReturn.Rows(0).Item("URL")
|
||||
cold_Server = dtToReturn.Rows(0).Item("server")
|
||||
viewmode = dtToReturn.Rows(0).Item("viewmode")
|
||||
|
||||
cServer = "_server=" + cold_Server
|
||||
'Basis String erstellen
|
||||
cpostdata = cFunction & cSep & cLogoff & cSep & cServer & cSep & cUser & cSep & cPassword
|
||||
cFolder = "_folder=" + dtToReturn.Rows(0).Item("ZV")
|
||||
|
||||
cpostdata = cpostdata & cSep & "Auftrag-Nr.=" & edk_Auftragnr & cSep & "Dokumenttyp=" & edk_Dokumenttyp _
|
||||
& cSep & cFolder & cSep & "Paginator=" & edk_DocID
|
||||
'RGL 20080325 Kein Datum bei ZV Belegen
|
||||
'& cSep & cFolder & cSep & "Paginator=" & edk_DocID & cSep & "Valuta od. Archiv Datum=" & edk_Datum _
|
||||
'& cSep & "Valuta od. Archiv Datum2=" & edk_Datum
|
||||
Case Else 'EDOKA
|
||||
' KC 29.05.2008
|
||||
' CHECK for MIGRATION
|
||||
|
||||
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Belegart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "EDOKA"))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@DokumentID", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, edk_DocID))
|
||||
|
||||
|
||||
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
str_URL = dtToReturn.Rows(0).Item("URL")
|
||||
cold_Server = dtToReturn.Rows(0).Item("server")
|
||||
viewmode = dtToReturn.Rows(0).Item("viewmode")
|
||||
|
||||
cServer = "_server=" + cold_Server
|
||||
'Basis String erstellen
|
||||
cpostdata = cFunction & cSep & cLogoff & cSep & cServer & cSep & cUser & cSep & cPassword
|
||||
cFolder = "_folder=" + dtToReturn.Rows(0).Item("EDOKAFolder")
|
||||
|
||||
cpostdata = cpostdata & cSep & "Dokument-Id=" & edk_DocID & cSep & cFolder & cSep & "Archiv-Datum=" _
|
||||
& edk_Datum & cSep & "Archiv-Datum2=" & edk_Datum
|
||||
End Select
|
||||
'DB aufräumen
|
||||
scmCmdToExecute.Connection.Close()
|
||||
sdaAdapter.Dispose()
|
||||
sdaAdapter = Nothing
|
||||
scmCmdToExecute.Dispose()
|
||||
scmCmdToExecute = Nothing
|
||||
dtToReturn.Dispose()
|
||||
dtToReturn = Nothing
|
||||
|
||||
'Packen für POST
|
||||
PackBytes(aByte, cpostdata)
|
||||
|
||||
'Vorbereitung IE Aufruf
|
||||
Dim vPost As Object = aByte
|
||||
Dim vFlags As Object = Nothing
|
||||
Dim vTarget As Object = Nothing
|
||||
Dim vHeaders As Object
|
||||
vPost = ASCIIEncoding.ASCII.GetBytes(cpostdata)
|
||||
|
||||
'vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
|
||||
vHeaders = "Content-Type: application/x-www-form-urlencoded, Cache-Control: no-cache"
|
||||
'IE Aufruf
|
||||
g_oIE = New SHDocVw.InternetExplorer
|
||||
g_oIE.AddressBar = False
|
||||
'g_oIE.Navigate2(str_URL + cpostdata)
|
||||
|
||||
'g_oIE.Navigate2(str_URL, Nothing, Nothing, vPost, vHeaders)
|
||||
g_oIE.Visible = True
|
||||
Catch ex As Exception
|
||||
|
||||
Console.WriteLine("Fehler beim öffnen des Internet Explorers")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Environment.Exit(1)
|
||||
Finally
|
||||
g_oIE = Nothing
|
||||
End Try
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub PackBytes(ByRef out_ByteArray() As Byte, ByVal in_PostData As String)
|
||||
Try
|
||||
Dim Byte_tmp = Len(in_PostData) - 1 ' Get rid of the null termination
|
||||
If Byte_tmp < 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
ReDim out_ByteArray(Byte_tmp)
|
||||
Dim i As Integer
|
||||
Dim str_tmp As String
|
||||
For i = 0 To Byte_tmp
|
||||
str_tmp = Mid(in_PostData, i + 1, 1)
|
||||
If str_tmp = Space(1) Then
|
||||
str_tmp = "+"
|
||||
End If
|
||||
out_ByteArray(i) = Asc(str_tmp)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler beim packen der POST Daten")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Environment.Exit(1)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Parse_Commandline(ByVal str_args() As String)
|
||||
Try
|
||||
Dim str_tmp As String = ""
|
||||
Dim i, ii As Integer
|
||||
For ii = 0 To UBound(str_args)
|
||||
str_tmp = str_tmp & str_args(ii) & " "
|
||||
Next
|
||||
If InStr(str_tmp, "/?") > 0 Or InStr(str_tmp, "-?") > 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
arr_Args = Split(str_tmp, "/")
|
||||
For i = LBound(arr_Args) To UBound(arr_Args)
|
||||
Select Case LCase(Left(arr_Args(i), 2))
|
||||
Case "? "
|
||||
End
|
||||
Case "u "
|
||||
edk_User = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "p "
|
||||
edk_Password = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "f "
|
||||
edk_Folder = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "d "
|
||||
edk_DocID = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
|
||||
|
||||
Case "t "
|
||||
edk_datum = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "b "
|
||||
edk_Belegart = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "g "
|
||||
edk_Dokumenttyp = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case "a "
|
||||
edk_Auftragnr = Trim(Right(arr_Args(i), Len(arr_Args(i)) - 2))
|
||||
Case Else
|
||||
'ErrCD = 9
|
||||
End Select
|
||||
Next i
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler beim Auslesen der Befehlszeilen Argumente")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Environment.Exit(1)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function FolderExist(ByVal dn As String) As Boolean
|
||||
Try
|
||||
If System.IO.Directory.Exists(dn) Then FolderExist = True Else FolderExist = False
|
||||
Catch
|
||||
FolderExist = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,150 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>8.0.50727</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{02D43006-2DED-40BD-9D87-6E7AEBCDA661}</ProjectGuid>
|
||||
<OutputType>Exe</OutputType>
|
||||
<StartupObject>Coldstrt.Coldstart</StartupObject>
|
||||
<RootNamespace>Coldstrt</RootNamespace>
|
||||
<AssemblyName>Coldstrt</AssemblyName>
|
||||
<MyType>Console</MyType>
|
||||
<SccProjectName>
|
||||
</SccProjectName>
|
||||
<SccLocalPath>
|
||||
</SccLocalPath>
|
||||
<SccAuxPath>
|
||||
</SccAuxPath>
|
||||
<SccProvider>
|
||||
</SccProvider>
|
||||
<ManifestCertificateThumbprint>FDA52E3BB58DD05EADFC9FBD9EA40954A86CA95F</ManifestCertificateThumbprint>
|
||||
<ManifestKeyFile>Coldstrt_TemporaryKey.pfx</ManifestKeyFile>
|
||||
<GenerateManifests>false</GenerateManifests>
|
||||
<SignManifests>false</SignManifests>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationVersion>2.1.0.%2a</ApplicationVersion>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<OldToolsVersion>2.0</OldToolsVersion>
|
||||
<ApplicationRevision>1</ApplicationRevision>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>Coldstrt.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>Coldstrt.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<TargetZone>LocalIntranet</TargetZone>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Xml" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="Coldstart.vb" />
|
||||
<Compile Include="Crypto.vb" />
|
||||
<Compile Include="db_connection.vb" />
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\app.manifest" />
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<COMReference Include="SHDocVw">
|
||||
<Guid>{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}</Guid>
|
||||
<VersionMajor>1</VersionMajor>
|
||||
<VersionMinor>1</VersionMinor>
|
||||
<Lcid>0</Lcid>
|
||||
<WrapperTool>tlbimp</WrapperTool>
|
||||
<Isolated>False</Isolated>
|
||||
</COMReference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
@@ -0,0 +1,23 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<StartArguments>"/b ZV /a TG0508100140000001 /g ZVS003-Erfassungsdaten /u tgsystkb /p tgsystkb /f TGKB ZV-Scanning Belege /t 31.07.08"</StartArguments>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<StartArguments>"/b ZV /a TG0508100140000001 /g ZVS003-Erfassungsdaten /u tgsystkb /p tgsystkb /f TGKB ZV-Scanning Belege /t 31.07.08"</StartArguments>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory>
|
||||
</InstallUrlHistory>
|
||||
<SupportUrlHistory>
|
||||
</SupportUrlHistory>
|
||||
<UpdateUrlHistory>
|
||||
</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory>
|
||||
</BootstrapperUrlHistory>
|
||||
<FallbackCulture>de-DE</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
<ProjectView>ShowAllFiles</ProjectView>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,10 @@
|
||||
""
|
||||
{
|
||||
"FILE_VERSION" = "9237"
|
||||
"ENLISTMENT_CHOICE" = "NEVER"
|
||||
"PROJECT_FILE_RELATIVE_PATH" = "relative:Coldstrt"
|
||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
|
||||
}
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<!-- VSdocman config file for current project/solution.-->
|
||||
<activeProfile>default</activeProfile>
|
||||
<appSettings>
|
||||
</appSettings>
|
||||
</configuration>
|
||||
@@ -0,0 +1,47 @@
|
||||
Module Crypto
|
||||
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
strBuff = ""
|
||||
Try
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
EncryptText = strBuff
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler beim Verschlüsseln")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Return strBuff
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
strBuff = ""
|
||||
Try
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
DecryptText = strBuff
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler beim Entschlüsseln")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Return strBuff
|
||||
End Try
|
||||
End Function
|
||||
End Module
|
||||
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.18051
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>false</MySubMain>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<ApplicationType>2</ApplicationType>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||
' die mit einer Assembly verknüpft sind.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("Coldstrt")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("DEVNET")>
|
||||
<Assembly: AssemblyProduct("Coldstrt")>
|
||||
<Assembly: AssemblyCopyright("Copyright © DEVNET 2008")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
|
||||
<Assembly: Guid("02be6d28-5072-40a1-9f85-2db3f072034e")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Hauptversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revision
|
||||
'
|
||||
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("2.1.0.0")>
|
||||
<Assembly: AssemblyFileVersion("2.1.0.0")>
|
||||
+63
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.18051
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||
'''<summary>
|
||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Coldstrt.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,117 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
+73
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.18051
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "Funktion zum automatischen Speichern von My.Settings"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.Coldstrt.My.MySettings
|
||||
Get
|
||||
Return Global.Coldstrt.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
@@ -0,0 +1,54 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app" />
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<!-- UAC-Manifestoptionen
|
||||
Wenn Sie die Zugangsebene für das Windows-Benutzerkonto ändern möchten, ersetzen Sie den
|
||||
requestedExecutionLevel-Knoten durch eines der folgenden Elemente.
|
||||
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
|
||||
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
|
||||
|
||||
Durch Angeben des requestedExecutionLevel-Knotens wird die Datei- und Registrierungsvirtualisierung deaktiviert.
|
||||
Wenn Sie Datei- und Registrierungsvirtualisierung für Abwärts-
|
||||
kompatibilität verwenden möchten, löschen Sie den requestedExecutionLevel-Knoten.
|
||||
-->
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
</requestedPrivileges>
|
||||
<applicationRequestMinimum>
|
||||
<PermissionSet class="System.Security.PermissionSet" version="1" Unrestricted="true" ID="Custom" SameSite="site" />
|
||||
<defaultAssemblyRequest permissionSetReference="Custom" />
|
||||
</applicationRequestMinimum>
|
||||
</security>
|
||||
</trustInfo>
|
||||
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
|
||||
<application>
|
||||
<!-- Eine Liste aller Windows-Versionen, mit denen die Anwendung kompatibel ist.
|
||||
Windows wählt automatisch die am stärksten kompatible Umgebung aus.-->
|
||||
<!-- Wenn die Anwendung mit Windows Vista kompatibel ist, heben Sie die Auskommentierung des folgenden supportedOS-Knotens auf-->
|
||||
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"></supportedOS>-->
|
||||
<!-- Wenn die Anwendung mit Windows 7 kompatibel ist, heben Sie die Kommentierung des folgenden supportedOS-Knotens auf.-->
|
||||
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
|
||||
<!-- Wenn die Anwendung mit Windows 8 kompatibel ist, heben Sie die Auskommentierung des folgenden supportedOS-Knotens auf-->
|
||||
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"></supportedOS>-->
|
||||
<!-- Wenn die Anwendung mit Windows 8.1 kompatibel ist, die Kommentierung des folgenden supportedOS-Knotens aufheben.-->
|
||||
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>-->
|
||||
</application>
|
||||
</compatibility>
|
||||
<!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
|
||||
<!-- <dependency>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity
|
||||
type="win32"
|
||||
name="Microsoft.Windows.Common-Controls"
|
||||
version="6.0.0.0"
|
||||
processorArchitecture="*"
|
||||
publicKeyToken="6595b64144ccf1df"
|
||||
language="*"
|
||||
/>
|
||||
</dependentAssembly>
|
||||
</dependency>-->
|
||||
</asmv1:assembly>
|
||||
Binary file not shown.
@@ -0,0 +1,18 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity name="Coldstrt.application" version="2.1.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<description asmv2:publisher="Coldstrt" asmv2:product="Coldstrt" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<deployment install="true" mapFileExtensions="true" />
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" codebase="Coldstrt.exe.manifest" size="2761">
|
||||
<assemblyIdentity name="Coldstrt.exe" version="2.1.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>0ILkeBsUhKKlFF4mLQsucy9I/KQ=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
</asmv1:assembly>
|
||||
Binary file not shown.
@@ -0,0 +1,53 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<asmv1:assemblyIdentity name="Coldstrt.exe" version="2.1.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||
<application />
|
||||
<entryPoint>
|
||||
<assemblyIdentity name="Coldstrt" version="2.1.0.0" language="neutral" processorArchitecture="msil" />
|
||||
<commandLine file="Coldstrt.exe" parameters="" />
|
||||
</entryPoint>
|
||||
<trustInfo>
|
||||
<security>
|
||||
<applicationRequestMinimum>
|
||||
<PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
|
||||
<defaultAssemblyRequest permissionSetReference="Custom" />
|
||||
</applicationRequestMinimum>
|
||||
</security>
|
||||
</trustInfo>
|
||||
<dependency>
|
||||
<dependentOS>
|
||||
<osVersionInfo>
|
||||
<os majorVersion="4" minorVersion="10" buildNumber="0" servicePackMajor="0" />
|
||||
</osVersionInfo>
|
||||
</dependentOS>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
|
||||
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="2.0.50727.0" />
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Coldstrt.exe" size="36864">
|
||||
<assemblyIdentity name="Coldstrt" version="2.1.0.0" language="neutral" processorArchitecture="msil" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>AHg9kl/0FNntJflek+H3+0CVlM4=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Interop.SHDocVw.dll" size="151552">
|
||||
<assemblyIdentity name="Interop.SHDocVw" version="1.1.0.0" language="neutral" processorArchitecture="msil" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>YgawKwS6IwZOqZYwl2WbHhpkkzk=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
</asmv1:assembly>
|
||||
Binary file not shown.
@@ -0,0 +1,18 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity name="Coldstrt.application" version="2.1.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<description asmv2:publisher="Coldstrt" asmv2:product="Coldstrt" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<deployment install="true" mapFileExtensions="true" />
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" codebase="Coldstrt.exe.manifest" size="2761">
|
||||
<assemblyIdentity name="Coldstrt.exe" version="2.1.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>0ILkeBsUhKKlFF4mLQsucy9I/KQ=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
</asmv1:assembly>
|
||||
Binary file not shown.
@@ -0,0 +1,54 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app" />
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<!-- UAC-Manifestoptionen
|
||||
Wenn Sie die Zugangsebene für das Windows-Benutzerkonto ändern möchten, ersetzen Sie den
|
||||
requestedExecutionLevel-Knoten durch eines der folgenden Elemente.
|
||||
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
|
||||
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
|
||||
|
||||
Durch Angeben des requestedExecutionLevel-Knotens wird die Datei- und Registrierungsvirtualisierung deaktiviert.
|
||||
Wenn Sie Datei- und Registrierungsvirtualisierung für Abwärts-
|
||||
kompatibilität verwenden möchten, löschen Sie den requestedExecutionLevel-Knoten.
|
||||
-->
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
</requestedPrivileges>
|
||||
<applicationRequestMinimum>
|
||||
<PermissionSet class="System.Security.PermissionSet" version="1" Unrestricted="true" ID="Custom" SameSite="site" />
|
||||
<defaultAssemblyRequest permissionSetReference="Custom" />
|
||||
</applicationRequestMinimum>
|
||||
</security>
|
||||
</trustInfo>
|
||||
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
|
||||
<application>
|
||||
<!-- Eine Liste aller Windows-Versionen, mit denen die Anwendung kompatibel ist.
|
||||
Windows wählt automatisch die am stärksten kompatible Umgebung aus.-->
|
||||
<!-- Wenn die Anwendung mit Windows Vista kompatibel ist, heben Sie die Auskommentierung des folgenden supportedOS-Knotens auf-->
|
||||
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"></supportedOS>-->
|
||||
<!-- Wenn die Anwendung mit Windows 7 kompatibel ist, heben Sie die Kommentierung des folgenden supportedOS-Knotens auf.-->
|
||||
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
|
||||
<!-- Wenn die Anwendung mit Windows 8 kompatibel ist, heben Sie die Auskommentierung des folgenden supportedOS-Knotens auf-->
|
||||
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"></supportedOS>-->
|
||||
<!-- Wenn die Anwendung mit Windows 8.1 kompatibel ist, die Kommentierung des folgenden supportedOS-Knotens aufheben.-->
|
||||
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>-->
|
||||
</application>
|
||||
</compatibility>
|
||||
<!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
|
||||
<!-- <dependency>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity
|
||||
type="win32"
|
||||
name="Microsoft.Windows.Common-Controls"
|
||||
version="6.0.0.0"
|
||||
processorArchitecture="*"
|
||||
publicKeyToken="6595b64144ccf1df"
|
||||
language="*"
|
||||
/>
|
||||
</dependentAssembly>
|
||||
</dependency>-->
|
||||
</asmv1:assembly>
|
||||
@@ -0,0 +1,24 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
Coldstrt
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="P:Coldstrt.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
</summary>
|
||||
</member><member name="P:Coldstrt.My.Resources.Resources.Culture">
|
||||
<summary>
|
||||
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
</summary>
|
||||
</member><member name="T:Coldstrt.My.Resources.Resources">
|
||||
<summary>
|
||||
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
Binary file not shown.
@@ -0,0 +1 @@
|
||||
¹µÈ¦rȽ¹¿¸ª‰ Œ•™£Ÿ†–—~u{©Œ›—¢v˜œ°“Ÿ…p~‰x€‡®À±É½µ±r¸¯¸®Á´³‰ª¶·Àµµ·ÇÁÀÉe¿±¨Çº¾ÈÍe»Ã´³Š»¦¸¿ª¿ÄÆ¿¸Æ¶Â¼Ãeµ°‚¸¶·¿ªÆuÁǺ‚€|~ˆƒÊǹ·r¾²Á¼ª°»°³ƒÅµÇ¸ÉÄÀ¨Šy¹³±©Á³¶‡‡¨
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,4 @@
|
||||
COLDSTRT.EXE /d OFFEDK0002005005808571 /u tgsystkb /p tgsystkb /f TGKB EDOKA-Partner /t 01.07.08
|
||||
|
||||
|
||||
pause
|
||||
@@ -0,0 +1,4 @@
|
||||
COLDSTRT.EXE /d OFFEDK0002005005808571 /u tgsystkb /p tgsystkb /f TGKB EDOKA-Partner /t 01.08.08
|
||||
|
||||
|
||||
pause
|
||||
@@ -0,0 +1,4 @@
|
||||
coldstrt.exe /b HOST /d 00092002071501460000003380001 /u tgsystkb /p tgsystkb /f TGKB Kundenoutput AGI-OMS für EDOKA User /t 08.08.05
|
||||
|
||||
|
||||
pause
|
||||
@@ -0,0 +1,4 @@
|
||||
coldstrt.exe /b HOST /d 0009200212310198000003947000 /u tgsystkb /p tgsystkb /f TGKB Kundenoutput AGI-OMS für EDOKA User /t 08.08.05
|
||||
|
||||
|
||||
pause
|
||||
@@ -0,0 +1,4 @@
|
||||
COLDSTRT.EXE /b UVM /a TG051014013000000300001 /g UVM004-Erfassungsdaten /u tgsystkb /p tgsystkb /f TGKB UVM-Verträge /t 12.10.08
|
||||
|
||||
|
||||
pause
|
||||
@@ -0,0 +1,4 @@
|
||||
COLDSTRT.EXE /b UVM /a TG051014013000000300001 /g UVM004-Erfassungsdaten /u tgsystkb /p tgsystkb /f TGKB UVM-Verträge /t 12.10.07
|
||||
|
||||
|
||||
pause
|
||||
@@ -0,0 +1,4 @@
|
||||
COLDSTRT.EXE /b ZV /a TG0508100140000001 /g ZVS003-Erfassungsdaten /u tgsystkb /p tgsystkb /f TGKB ZV-Scanning Belege /t 01.08.08
|
||||
|
||||
|
||||
pause
|
||||
@@ -0,0 +1,4 @@
|
||||
COLDSTRT.EXE /b ZV /a TG0508100140000001 /g ZVS003-Erfassungsdaten /u tgsystkb /p tgsystkb /f TGKB ZV-Scanning Belege /t 31.07.08
|
||||
|
||||
|
||||
pause
|
||||
Binary file not shown.
@@ -0,0 +1 @@
|
||||
¹µÈ¦rȽ¹¿¸ª‰ŸªÄ¾ºÆ„w¾¼Á¾¦¸l¨³¼¶À캲³¸¶€¼±·Å±ÈÈt¸·¸Ã¶¶É¾lµ³¸·’ºµ±Åº‰»¼Ç°¿À¦Æ±ÄÂt®¶’‰´®¸°±ÀeűϹ‘y‚Ž„ÂȪ¾l®¶…É»¹©ÁÀ¯½¶¸¿Ã´Ä¬’xȬ·¹½¯®†v‡
|
||||
@@ -0,0 +1 @@
|
||||
¹µÈ¦rȽ¹¿¸ª‰ŸªÄ¾ºÆ„w¾¼Á¾¦¸l¨³¼¶À캲³¸¶€¼±·Å±ÈÈt¸·¸Ã¶¶É¾lµ³¸·’ºµ±Åº‰»¼Ç°¿À¦Æ±ÄÂt®¶’‰´®¸°±ÀeűϹ‘y‚Ž„ÂȪ¾l®¶…É»¹©ÁÀ¯½¶¸¿Ã´Ä¬’xȬ·¹½¯®†v‡
|
||||
@@ -0,0 +1,35 @@
|
||||
Imports System.IO
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class DB_Connection
|
||||
|
||||
Dim sConnectionString As String
|
||||
|
||||
Property scoDBConnection()
|
||||
Get
|
||||
Return Me.sConnectionString
|
||||
End Get
|
||||
Set(ByVal value)
|
||||
Me.sConnectionString = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Sub New()
|
||||
Try
|
||||
Dim fc As Integer = 0
|
||||
Dim oread As System.IO.StreamReader
|
||||
Dim mypath As String = Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) 'Benötigt System.Reflection
|
||||
oread = File.OpenText(mypath + "\" + "edokaconn.cfg")
|
||||
sConnectionString = oread.ReadLine
|
||||
sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
|
||||
sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
|
||||
oread.Close()
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler beim öffnen der Datei edokaconn.cfg")
|
||||
Console.WriteLine("Error: " + ex.Message)
|
||||
Environment.Exit(1)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@@ -0,0 +1,5 @@
|
||||
SCC = This is a Source Code Control file
|
||||
|
||||
[Coldstrt.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/Coldstrt/Coldstrt", THDAAAAA
|
||||
@@ -0,0 +1,30 @@
|
||||
obj\Debug\Coldstrt.exe
|
||||
obj\Debug\Coldstrt.xml
|
||||
obj\Debug\Coldstrt.pdb
|
||||
bin\Debug\Coldstrt.exe
|
||||
bin\Debug\Coldstrt.pdb
|
||||
bin\Debug\Coldstrt.xml
|
||||
bin\Debug\Interop.SHDocVw.dll
|
||||
obj\Debug\ResolveAssemblyReference.cache
|
||||
obj\Debug\Interop.SHDocVw.dll
|
||||
obj\Debug\Coldstrt.vbproj.ResolveComReference.cache
|
||||
obj\Debug\Coldstrt.Resources.resources
|
||||
obj\Debug\Coldstrt.vbproj.GenerateResource.Cache
|
||||
bin\Release\Coldstrt.exe
|
||||
bin\Release\Coldstrt.pdb
|
||||
bin\Release\Coldstrt.xml
|
||||
bin\Release\Interop.SHDocVw.dll
|
||||
obj\Release\ResolveAssemblyReference.cache
|
||||
obj\Release\Interop.SHDocVw.dll
|
||||
obj\Release\Coldstrt.vbproj.ResolveComReference.cache
|
||||
obj\Release\Coldstrt.Resources.resources
|
||||
obj\Release\Coldstrt.vbproj.GenerateResource.Cache
|
||||
obj\Release\Coldstrt.exe
|
||||
obj\Release\Coldstrt.xml
|
||||
obj\Release\Coldstrt.pdb
|
||||
bin\Release\Coldstrt.exe.manifest
|
||||
bin\Release\Coldstrt.application
|
||||
obj\Release\Coldstrt.exe.manifest
|
||||
obj\Release\Coldstrt.application
|
||||
bin\Debug\Coldstrt.exe.manifest
|
||||
bin\Debug\Coldstrt.application
|
||||
@@ -0,0 +1,55 @@
|
||||
L:\Sourcecode\EDOKA\Projekte\Coldstrt\ColdViewer ODWEK\Coldstrt\Coldstrt\obj\Release\Coldstrt.exe
|
||||
L:\Sourcecode\EDOKA\Projekte\Coldstrt\ColdViewer ODWEK\Coldstrt\Coldstrt\obj\Release\Coldstrt.xml
|
||||
L:\Sourcecode\EDOKA\Projekte\Coldstrt\ColdViewer ODWEK\Coldstrt\Coldstrt\obj\Release\Coldstrt.pdb
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Release\ResolveAssemblyReference.cache
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Release\Coldstrt.exe
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Release\Coldstrt.xml
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Release\Coldstrt.pdb
|
||||
C:\Data\Coldstrt\Coldstrt\bin\Debug\Coldstrt.exe.manifest
|
||||
C:\Data\Coldstrt\Coldstrt\bin\Debug\Coldstrt.application
|
||||
C:\Data\Coldstrt\Coldstrt\bin\Debug\Coldstrt.exe
|
||||
C:\Data\Coldstrt\Coldstrt\bin\Debug\Coldstrt.pdb
|
||||
C:\Data\Coldstrt\Coldstrt\bin\Debug\Coldstrt.xml
|
||||
C:\Data\Coldstrt\Coldstrt\bin\Debug\Interop.SHDocVw.dll
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Release\Interop.SHDocVw.dll
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Release\Coldstrt.vbproj.ResolveComReference.cache
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Release\Coldstrt.Resources.resources
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Release\Coldstrt.vbproj.GenerateResource.Cache
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Release\Coldstrt.exe.manifest
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Release\Coldstrt.application
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Debug\ResolveAssemblyReference.cache
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Debug\Interop.SHDocVw.dll
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Debug\Coldstrt.vbproj.ResolveComReference.cache
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Debug\Coldstrt.Resources.resources
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Debug\Coldstrt.vbproj.GenerateResource.Cache
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Debug\Coldstrt.exe.manifest
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Debug\Coldstrt.application
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Debug\Coldstrt.exe
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Debug\Coldstrt.xml
|
||||
C:\Data\Coldstrt\Coldstrt\obj\Debug\Coldstrt.pdb
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.exe
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.xml
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.pdb
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\bin\Debug\Coldstrt.exe.manifest
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\bin\Debug\Coldstrt.application
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\bin\Debug\Coldstrt.exe
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\bin\Debug\Coldstrt.pdb
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\bin\Debug\Coldstrt.xml
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\bin\Debug\Interop.SHDocVw.dll
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Debug\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Debug\Interop.SHDocVw.dll
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.vbproj.ResolveComReference.cache
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.Resources.resources
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.exe.manifest
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.application
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.exe
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.xml
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.pdb
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Release\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Release\Interop.SHDocVw.dll
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.vbproj.ResolveComReference.cache
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.Resources.resources
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.exe.manifest
|
||||
E:\Software-Projekte\EDOKA\Tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.application
|
||||
Binary file not shown.
@@ -0,0 +1,18 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity name="Coldstrt.application" version="2.1.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<description asmv2:publisher="Coldstrt" asmv2:product="Coldstrt" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<deployment install="true" mapFileExtensions="true" />
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" codebase="Coldstrt.exe.manifest" size="2761">
|
||||
<assemblyIdentity name="Coldstrt.exe" version="2.1.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>0ILkeBsUhKKlFF4mLQsucy9I/KQ=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
</asmv1:assembly>
|
||||
Binary file not shown.
@@ -0,0 +1,53 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<asmv1:assemblyIdentity name="Coldstrt.exe" version="2.1.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||
<application />
|
||||
<entryPoint>
|
||||
<assemblyIdentity name="Coldstrt" version="2.1.0.0" language="neutral" processorArchitecture="msil" />
|
||||
<commandLine file="Coldstrt.exe" parameters="" />
|
||||
</entryPoint>
|
||||
<trustInfo>
|
||||
<security>
|
||||
<applicationRequestMinimum>
|
||||
<PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
|
||||
<defaultAssemblyRequest permissionSetReference="Custom" />
|
||||
</applicationRequestMinimum>
|
||||
</security>
|
||||
</trustInfo>
|
||||
<dependency>
|
||||
<dependentOS>
|
||||
<osVersionInfo>
|
||||
<os majorVersion="4" minorVersion="10" buildNumber="0" servicePackMajor="0" />
|
||||
</osVersionInfo>
|
||||
</dependentOS>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
|
||||
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="2.0.50727.0" />
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Coldstrt.exe" size="36864">
|
||||
<assemblyIdentity name="Coldstrt" version="2.1.0.0" language="neutral" processorArchitecture="msil" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>AHg9kl/0FNntJflek+H3+0CVlM4=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Interop.SHDocVw.dll" size="151552">
|
||||
<assemblyIdentity name="Interop.SHDocVw" version="1.1.0.0" language="neutral" processorArchitecture="msil" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>YgawKwS6IwZOqZYwl2WbHhpkkzk=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
</asmv1:assembly>
|
||||
Binary file not shown.
@@ -0,0 +1 @@
|
||||
dc249c87eac33f629a9d9db108c5b00551caa7bc
|
||||
@@ -0,0 +1,11 @@
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Debug\Interop.SHDocVw.dll
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.vbproj.ResolveComReference.cache
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.exe
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.xml
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.pdb
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.Resources.resources
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Debug\Coldstrt.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\bin\Debug\Coldstrt.exe
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\bin\Debug\Coldstrt.pdb
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\bin\Debug\Coldstrt.xml
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\bin\Debug\Interop.SHDocVw.dll
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,24 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
Coldstrt
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="P:Coldstrt.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
</summary>
|
||||
</member><member name="P:Coldstrt.My.Resources.Resources.Culture">
|
||||
<summary>
|
||||
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
</summary>
|
||||
</member><member name="T:Coldstrt.My.Resources.Resources">
|
||||
<summary>
|
||||
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
@@ -0,0 +1 @@
|
||||
d8752c1b02ecad3b77e6e8f68b89d6fc92bc0bd7
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,18 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity name="Coldstrt.application" version="2.1.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<description asmv2:publisher="Microsoft" asmv2:product="Coldstrt" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<deployment install="true" mapFileExtensions="true" />
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" codebase="Coldstrt.exe.manifest" size="2761">
|
||||
<assemblyIdentity name="Coldstrt.exe" version="2.1.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>V7FV7SCr8YOw902bpQvu5pTjzMg=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
</asmv1:assembly>
|
||||
Binary file not shown.
@@ -0,0 +1,53 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<asmv1:assemblyIdentity name="Coldstrt.exe" version="2.1.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||
<application />
|
||||
<entryPoint>
|
||||
<assemblyIdentity name="Coldstrt" version="2.1.0.0" language="neutral" processorArchitecture="msil" />
|
||||
<commandLine file="Coldstrt.exe" parameters="" />
|
||||
</entryPoint>
|
||||
<trustInfo>
|
||||
<security>
|
||||
<applicationRequestMinimum>
|
||||
<PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
|
||||
<defaultAssemblyRequest permissionSetReference="Custom" />
|
||||
</applicationRequestMinimum>
|
||||
</security>
|
||||
</trustInfo>
|
||||
<dependency>
|
||||
<dependentOS>
|
||||
<osVersionInfo>
|
||||
<os majorVersion="4" minorVersion="10" buildNumber="0" servicePackMajor="0" />
|
||||
</osVersionInfo>
|
||||
</dependentOS>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
|
||||
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="2.0.50727.0" />
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Coldstrt.exe" size="36864">
|
||||
<assemblyIdentity name="Coldstrt" version="2.1.0.0" language="neutral" processorArchitecture="msil" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>5J6UULHCYrW4pfeCFSHlxtxgYf0=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Interop.SHDocVw.dll" size="143360">
|
||||
<assemblyIdentity name="Interop.SHDocVw" version="1.1.0.0" language="neutral" processorArchitecture="msil" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>yut23t06c2cgtNtcxRcaaSd6LhQ=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
</asmv1:assembly>
|
||||
Binary file not shown.
@@ -0,0 +1,7 @@
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Release\Interop.SHDocVw.dll
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.vbproj.ResolveComReference.cache
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.exe
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.xml
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.pdb
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.Resources.resources
|
||||
E:\Software-Projekte\EDOKA\tools\Coldstrt\Coldstrt\obj\Release\Coldstrt.vbproj.GenerateResource.Cache
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,24 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
Coldstrt
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="P:Coldstrt.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
</summary>
|
||||
</member><member name="P:Coldstrt.My.Resources.Resources.Culture">
|
||||
<summary>
|
||||
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
</summary>
|
||||
</member><member name="T:Coldstrt.My.Resources.Resources">
|
||||
<summary>
|
||||
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user