Openvpn

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von backtothetoast.

    sorry dass ich so spät antworte...
    ich bin zu dumm für alles...

    also: was ich irgendwo gefunden hab :
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    3. Option Compare Binary
    5. Imports Microsoft.VisualBasic
    6. Imports System.Diagnostics
    7. Imports System.Threading
    8. Imports System.Windows.Forms
    10. ' <remarks>
    11. ' Hauptformular der Anwendung.
    12. ' </remarks>
    13. Public Class MainForm
    14. Inherits System.Windows.Forms.Form
    16. Private m_Process As Process
    17. Private m_OutputThread As Thread
    18. Private m_ErrorThread As Thread
    19. Private m_strTextToAdd As String
    21. #Region " Windows Form Designer generated code "
    22. Public Sub New()
    23. MyBase.New()
    24. InitializeComponent()
    25. End Sub
    27. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    28. If disposing Then
    29. If Not (components Is Nothing) Then
    30. components.Dispose()
    31. End If
    32. End If
    33. MyBase.Dispose(disposing)
    34. End Sub
    36. Private components As System.ComponentModel.IContainer
    38. Friend WithEvents txtCommandInput As System.Windows.Forms.TextBox
    39. Friend WithEvents txtConsole As System.Windows.Forms.TextBox
    40. Friend WithEvents btnSend As System.Windows.Forms.Button
    42. <System.Diagnostics.DebuggerStepThrough()> _
    43. Private Sub InitializeComponent()
    44. Me.txtCommandInput = New System.Windows.Forms.TextBox()
    45. Me.btnSend = New System.Windows.Forms.Button()
    46. Me.txtConsole = New System.Windows.Forms.TextBox()
    47. Me.SuspendLayout()
    48. '
    49. 'txtCommandInput
    50. '
    51. Me.txtCommandInput.Anchor = ((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
    52. Or System.Windows.Forms.AnchorStyles.Right)
    53. Me.txtCommandInput.Location = New System.Drawing.Point(16, 352)
    54. Me.txtCommandInput.Name = "txtCommandInput"
    55. Me.txtCommandInput.Size = New System.Drawing.Size(462, 20)
    56. Me.txtCommandInput.TabIndex = 1
    57. Me.txtCommandInput.Text = ""
    58. '
    59. 'btnSend
    60. '
    61. Me.btnSend.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
    62. Me.btnSend.FlatStyle = System.Windows.Forms.FlatStyle.System
    63. Me.btnSend.Location = New System.Drawing.Point(486, 350)
    64. Me.btnSend.Name = "btnSend"
    65. Me.btnSend.Size = New System.Drawing.Size(64, 24)
    66. Me.btnSend.TabIndex = 2
    67. Me.btnSend.Text = "&Senden"
    68. '
    69. 'txtConsole
    70. '
    71. Me.txtConsole.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    72. Or System.Windows.Forms.AnchorStyles.Left) _
    73. Or System.Windows.Forms.AnchorStyles.Right)
    74. Me.txtConsole.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    75. Me.txtConsole.Location = New System.Drawing.Point(16, 16)
    76. Me.txtConsole.Multiline = True
    77. Me.txtConsole.Name = "txtConsole"
    78. Me.txtConsole.ReadOnly = True
    79. Me.txtConsole.ScrollBars = System.Windows.Forms.ScrollBars.Both
    80. Me.txtConsole.Size = New System.Drawing.Size(534, 326)
    81. Me.txtConsole.TabIndex = 3
    82. Me.txtConsole.Text = ""
    83. '
    84. 'MainForm
    85. '
    86. Me.AcceptButton = Me.btnSend
    87. Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    88. Me.ClientSize = New System.Drawing.Size(568, 390)
    89. Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtConsole, Me.btnSend, Me.txtCommandInput})
    90. Me.MinimumSize = New System.Drawing.Size(576, 424)
    91. Me.Name = "MainForm"
    92. Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    93. Me.Text = "RedirectConsole"
    94. Me.ResumeLayout(False)
    96. End Sub
    97. #End Region
    99. ' <summary>
    100. ' Schreibt den im Parameter <paramref name="strText"/>
    101. ' angebenen Text auf den Ausgabestrom.
    102. ' </summary>
    103. ' <param name="strText">Text, der auf den Ausgabestrom
    104. ' geschrieben werden soll.</param>
    105. Private Sub StreamInput(ByVal strText As String)
    106. m_Process.StandardInput.WriteLine(strText)
    107. m_Process.StandardInput.Flush()
    108. End Sub
    110. ' <summary>
    111. ' Liest vom Fehlerstream und gibt die
    112. ' gelesenen Informationen aus.
    113. ' </summary>
    114. Private Sub StreamError()
    115. Dim strLine As String = _
    116. m_Process.StandardError.ReadLine()
    117. Try
    118. Do While strLine.Length >= 0
    119. strLine = m_Process.StandardError.ReadLine()
    120. If strLine.Length <> 0 Then
    121. AddText(strLine)
    122. End If
    123. Loop
    124. Catch
    125. AddText("cmd wurde beendet!")
    126. End Try
    127. End Sub
    129. ' <summary>
    130. ' Liest vom Ausgabestream und gibt
    131. ' die gelesenen Informationen aus.
    132. ' </summary>
    133. Private Sub StreamOutput()
    134. Dim strLine As String = _
    135. m_Process.StandardOutput.ReadLine()
    136. Try
    137. Do While strLine.Length >= 0
    138. If strLine.Length <> 0 Then
    139. AddText(strLine)
    140. End If
    141. strLine = m_Process.StandardOutput.ReadLine()
    142. Loop
    143. Catch
    144. AddText("cmd wurde beendet!")
    145. End Try
    146. End Sub
    148. ' <summary>
    149. ' Fügt den im Parameter <paramref name="strText"/>
    150. ' übergebenen String einer TextBox an.
    151. ' </summary>
    152. ' <param name="strText">Text, der der TextBox
    153. ' hinzugefügt werden soll.</param>
    154. Private Sub AddText(ByVal strText As String)
    155. m_strTextToAdd = strText
    156. Me.Invoke(CType(AddressOf Me.AddTextToTextBox, MethodInvoker))
    157. End Sub
    159. ' <summary>
    160. ' Wird über Invoking aufgerufen, um einen Text hinzuzufügen.
    161. ' <summary>
    162. Private Sub AddTextToTextBox()
    163. txtConsole.AppendText(String.Concat(m_strTextToAdd, _
    164. ControlChars.NewLine))
    165. txtConsole.SelectionStart = txtConsole.Text.Length
    166. End Sub
    168. Private Sub MainForm_Load( _
    169. ByVal sender As System.Object, _
    170. ByVal e As System.EventArgs) _
    171. Handles MyBase.Load
    173. ' Um das Programm zu benutzen, um einen
    174. ' Shell-Befehl auf der Konsole auszuführen
    175. ' (z.B. netstat oder ping) kann man anstelle
    176. ' von "cmd" bei Arguments einfach den
    177. ' entsprechenden Befehl (z.B. "ping") einfügen
    178. ' und in der Eigenschaft Arguments
    179. ' die entsprechenden Attribute
    180. ' (beispielsweise bei ping die IP-Adresse) angeben.
    181. m_Process = New Process()
    182. With m_Process.StartInfo
    183. .FileName = "cmd"
    184. .Arguments = ""
    185. .UseShellExecute = False
    186. .CreateNoWindow = True
    187. .RedirectStandardOutput = True
    188. .RedirectStandardError = True
    189. .RedirectStandardInput = True
    190. End With
    191. m_Process.Start()
    193. ' Ändern der Streams, sodass wir bei
    194. ' Änderungen etwas mitbekommen.
    195. Dim ts1 As ThreadStart = New ThreadStart(AddressOf StreamOutput)
    196. m_OutputThread = New Thread(ts1)
    197. m_OutputThread.Start()
    198. Dim ts2 As ThreadStart = New ThreadStart(AddressOf StreamError)
    199. m_ErrorThread = New Thread(ts2)
    200. m_ErrorThread.Start()
    201. End Sub
    203. Private Sub btnSend_Click( _
    204. ByVal sender As System.Object, _
    205. ByVal e As System.EventArgs) _
    206. Handles btnSend.Click
    207. StreamInput(txtCommandInput.Text)
    208. txtCommandInput.Clear()
    209. End Sub
    211. Private Sub MainForm_Closing( _
    212. ByVal sender As Object, _
    213. ByVal e As System.ComponentModel.CancelEventArgs) _
    214. Handles MyBase.Closing
    215. m_OutputThread.Abort()
    216. m_ErrorThread.Abort()
    217. End Sub
    218. End Class

    also er liest alles bis da aus:

    VB.NET-Quellcode

    1. Tue Jan 21 20:36:56 2014 OpenVPN 2.3.2 i686-w64-mingw32 [SSL (OpenSSL)] [LZO] [PKCS11] [eurephia] [IPv6] built on Aug 22 2013

    das mit username kommt nimmer...
    Wie komm ich zu dem username und passwort?
    Wer Rechtschreibfehler findet darf sie behalten :)

Facebook
Telefonspende