Alles macht sich selbstständig - Text aus Msg und MsgBox verschwindet, OpenFiledialog öffnet sich willkürlich

pindoyu · 21. November 2013, 16:18

Hallo zusammen,

nachdem ihr mir letztens so gut helfen konntet wende ich mich mit einer neuen Frage an euch: (ok besser mit zwei Fragen)

Ich habe einen Code, welcher mir aus einer RDP-Verbindung den Hostname ausliest und in der Variable "GetWTSQueryHost" speichert.
Soweit funktioniert das auch klasse.

Aber wenn ich innerhalb eines E-Mail Bodys (SMTP) versuche auf diese GetWTSQueryHost zuzugreifen, schneidet der mir die E-Mail ab:

VB.NET-Quellcode

Msg.Body = ("Folgender Problembericht wurde von " & Environment.UserName & " übermittelt:" & vbNewLine & Problembeschreibung_input.Text & vbCrLf & vbNewLine & vbCrLf & "Daten zur verwendeten Hardware: " & vbCrLf & vbCrLf & "Computername / Hostname / ggf. ThinClient-Server: " & Environment.MachineName & " " & vbNewLine & " / ThinClient-Hostname: " & [color=#ff6600]Hauptfenster.GetWTSQueryHost(-1)[/color] & vbCrLf & "Benutzername: " & Environment.UserName & vbCrLf & OSinhalt & vbCrLf & vbNewLine & vbCrLf & "Laufwerke: " & vbCrLf & vbCrLf & tmplocaldriinhalt & vbNewLine & vbNewLine & "Netzwerk: " & vbCrLf & vbNewLine & tmpipinhalt & vbNewLine & tmpmacinhalt & vbNewLine & vbNewLine & vbNewLine & "Drucker:" & vbNewLine & vbNewLine & tmpprintinhalt)

Nach dem Aufruf durch "Hauptfenster.GetWTSQueryHost(-1)" war es das - der Rest fehlt.

Ich habe schon versucht, diesen Aufruf in einen String zu packen und auszulesen, ob GetWTSQueryHost einen Wert liefert und wenn ja, tcl_hostname.text durch den Inhalt aus GetWTSQueryhost zu ersetzen:

VB.NET-Quellcode

Public Sub hostnametcl()
If GetWTSQueryHost(-1) > 1 Then
tcl_hostname.Text = GetWTSQueryHost(-1)
Else
tcl_hostname.Text = "nicht vorhanden"
End If
End Sub

Zwar zeigt er mir so alle Informationen an, allerdings spuckt er dann nur noch "nicht vorhanden" aus - obwohl ein Wert vorliegt.

Was mache ich falsch?

Zur zweiten Frage:

In meinem Formular hat der Benutzer die Möglichkeit, eine Datei auszuwählen, die als Anhang an die Mail gefügt wird.

VB.NET-Quellcode

Public Sub datei_anhaengen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles datei_anhaengen.Click
Anhang_laden()
End Sub
Public Sub Anhang_laden()
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim dateiname As String = IO.Path.GetFileName(OpenFileDialog1.FileName)
Dim kurztext As String = dateiname.Substring(0, 7)
OpenFileDialog1.Multiselect = False
Dim Anhangsdatei As String = OpenFileDialog1.FileName
anhang_text.Text = "Anhang: " & kurztext & "..."
End If
End Sub

in der Msg.Attachment.New sieht es wie folgt aus:

VB.NET-Quellcode

Msg.Attachments.Add(New System.Net.Mail.Attachment(OpenFileDialog1.FileName))

Nun läuft es aber auf eine Fehlermeldung heraus, wenn der Benutzer keine Datei anhängt. (Kann die Datei ... OpenFileDialog1 nicht finden...)

Also hab ich auch da eine Abfrage durchgeführt:

VB.NET-Quellcode

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Msg.Attachments.Add(New System.Net.Mail.Attachment(OpenFileDialog1.FileName))
end if

..
..
myserver.send(msg)

Jetzt ist zwar die Fehlermeldung weg, allerdings öffnet der nach dem Klick auf den "Senden"-Button automatisch das OpenFileDialog1. Erst wenn ich dort dann auf abbrechen drücke, funktioniert es und er sendet die E-Mail ohne Anhang.

Ideen?

Lieben Dank,

Matthias aka Pindoyu

RodFromGermany · 21. November 2013, 17:14

pindoyu schrieb:

Was mache ich falsch?

Ggf. >=?

VB.NET-Quellcode

If GetWTSQueryHost(-1) >= 1 Then

---

VB.NET-Quellcode

OpenFileDialog1.Multiselect = False

muss vor OpenFileDialog1.ShowDialog stehen, um da aktiv zu sein.
Um Deinen merkwürdigen Ablauf zu analysieren, poste bitte mal den gesamten Code, um alles ordentlich zu sehen.

pindoyu · 21. November 2013, 17:44

Code des Problemberichts-Fensters:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Imports System
Imports System.Management
Public Class Problembericht
Dim tmpipinhalt As String = My.Computer.FileSystem.ReadAllText(Hauptfenster.tmpipspeicherdatei)
Dim tmpmacinhalt As String = My.Computer.FileSystem.ReadAllText(Hauptfenster.tmpmacspeicherdatei)
Dim tmplocaldriinhalt As String = My.Computer.FileSystem.ReadAllText(Hauptfenster.tmplocaldrispeicherdatei)
Dim tmpprintinhalt As String = My.Computer.FileSystem.ReadAllText(Hauptfenster.tmpprintspeicherdatei)
Dim OSinhalt As String = "Betriebssystem: " & Hauptfenster.GetOSVersion() & " x" & Hauptfenster.GetArchitektur() & ": (" & Environment.OSVersion.ToString & ")"
Dim msgbox_senden As String
Dim drvs As String() = Environment.GetLogicalDrives()
'E-Mail senden und tmp-Dateien löschen
Private Sub Senden_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Senden_btn.Click
msgbox_senden = MsgBox("Ihre Problembeschreibung wird zusammen mit detaiierten Computerinformationen an das IT-team gesendet", MsgBoxStyle.YesNo, "Senden der Informationen bestätigen")
If msgbox_senden = MsgBoxResult.Yes Then
'Aufruf der Routine zum senden
'Bestimmen der Variablen
Dim Msg As New Net.Mail.MailMessage
Dim myCredentials As New System.Net.NetworkCredential
'Festlegen der SMTP-Benutzernamen
myCredentials.UserName = "bla"
myCredentials.Password = "test1234"
'Deaktivieren des HTML-Bodys
Msg.IsBodyHtml = False
'Festlegen des SMTP-Servers
Dim mySmtpsvr As New Net.Mail.SmtpClient()
mySmtpsvr.Host = "blablabla"
mySmtpsvr.Port = 25
mySmtpsvr.UseDefaultCredentials = True
'mySmtpsvr.Credentials = myCredentials
Try
Msg.From = New Net.Mail.MailAddress("Ticketanfrage@intern")
Msg.To.Add("IT@me.de") 'IT-Service-Desk als Empfänger festlegen
Msg.Subject = "Ticketanfrage " & Environment.MachineName & " / " & Hauptfenster.GetWTSQueryHost(-1) & " -- " & Environment.UserName
Msg.Body = ("Folgender Problembericht wurde von " & Environment.UserName & " übermittelt:" & vbNewLine & Problembeschreibung_input.Text & vbCrLf & vbNewLine & vbCrLf & "Daten zur verwendeten Hardware: " & vbCrLf & vbCrLf & "Computername / Hostname / ggf. ThinClient-Server: " & Environment.MachineName & " " & vbNewLine & "ThinClient-Hostname: " & (Hauptfenster.GetWTSQueryHost(-1)) & vbCrLf & "Benutzername: " & Environment.UserName & vbCrLf & OSinhalt & vbCrLf & vbNewLine & vbCrLf & "Laufwerke: " & vbCrLf & vbCrLf & tmplocaldriinhalt & vbNewLine & vbNewLine & "Netzwerk: " & vbCrLf & vbNewLine & tmpipinhalt & vbNewLine & tmpmacinhalt & vbNewLine & vbNewLine & vbNewLine & "Drucker:" & vbNewLine & vbNewLine & tmpprintinhalt)
Msg.Attachments.Add(New System.Net.Mail.Attachment(OpenFileDialog1.FileName))
mySmtpsvr.Send(Msg)
MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
Catch ex As Exception
MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
End Try
'My.Computer.FileSystem.WriteAllText("C:\messageboxinhalt.txt", "Folgender Problembericht wurde von " & Environment.UserName & " übermittelt:" & vbNewLine & Problembeschreibung_input.Text & vbCrLf & vbNewLine & vbCrLf & "Daten zur verwendeten Hardware:" & vbCrLf & vbCrLf & "Computername / Hostname / ggf. ThinClient-Server: " & Environment.MachineName & vbCrLf & "ggf. ThinClient-Hostname: " & Hauptfenster.tcl_hostname.Text & vbCrLf & "Benutzername: " & Environment.UserName & vbCrLf & OSinhalt & vbCrLf & vbNewLine & vbCrLf & "Laufwerke: " & vbCrLf & vbCrLf & tmplocaldriinhalt & vbNewLine & vbNewLine & "Netzwerk: " & vbCrLf & vbNewLine & tmpipinhalt & vbNewLine & tmpmacinhalt & vbNewLine & vbNewLine & vbNewLine & "Drucker:" & vbNewLine & vbNewLine & tmpprintinhalt, True)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmpipspeicherdatei)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmpmacspeicherdatei)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmplocaldrispeicherdatei)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmpprintspeicherdatei)
Me.Close()
Application.Exit()
ElseIf msgbox_senden = MsgBoxResult.No Then
If FileIO.FileSystem.FileExists(Hauptfenster.tmpipspeicherdatei) = True And FileIO.FileSystem.FileExists(Hauptfenster.tmpmacspeicherdatei) = True And FileIO.FileSystem.FileExists(Hauptfenster.tmplocaldrispeicherdatei) = True Then
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmpipspeicherdatei)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmpmacspeicherdatei)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmplocaldrispeicherdatei)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmpprintspeicherdatei)
MessageBox.Show("Nachricht nicht versendet")
Me.Close()
Application.Exit()
End If
End If
End Sub
Private Sub abbruch_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles abbruch_btn.Click
'Fenster bei Abbruch schließen
If FileIO.FileSystem.FileExists(Hauptfenster.tmpipspeicherdatei) = True And FileIO.FileSystem.FileExists(Hauptfenster.tmpmacspeicherdatei) = True And FileIO.FileSystem.FileExists(Hauptfenster.tmpmacspeicherdatei) = True Then
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmpipspeicherdatei)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmpmacspeicherdatei)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmplocaldrispeicherdatei)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmpprintspeicherdatei)
Me.Close()
Application.Exit()
Else
Me.Close()
Application.Exit()
End If
End Sub
'Fenster bei "x" schließen
Private Sub problembericht_formclosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
If e.CloseReason = CloseReason.UserClosing Then
If FileIO.FileSystem.FileExists(Hauptfenster.tmpipspeicherdatei) = True And FileIO.FileSystem.FileExists(Hauptfenster.tmpmacspeicherdatei) = True And FileIO.FileSystem.FileExists(Hauptfenster.tmplocaldrispeicherdatei) = True Then
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmpipspeicherdatei)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmpmacspeicherdatei)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmplocaldrispeicherdatei)
My.Computer.FileSystem.DeleteFile(Hauptfenster.tmpprintspeicherdatei)
End If
e.Cancel = True
Application.Exit()
End If
End Sub
Public Sub datei_anhaengen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles datei_anhaengen.Click
Anhang_laden()
End Sub
Public Sub Anhang_laden()
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim dateiname As String = IO.Path.GetFileName(OpenFileDialog1.FileName)
Dim kurztext As String = dateiname.Substring(0, 7)
OpenFileDialog1.Multiselect = False
Dim Anhangsdatei As String = OpenFileDialog1.FileName
anhang_text.Text = "Anhang: " & kurztext & "..."
End If
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
MsgBox(("Folgender Problembericht wurde von " & Environment.UserName & " übermittelt:" & vbCrLf & vbCrLf & Problembeschreibung_input.Text & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Daten zur verwendeten Hardware: " & vbCrLf & vbCrLf & "Computename / Hostname / ggf. ThinClient-Server: " & Environment.MachineName & vbCrLf & "ThinClient-Hostname: " & Hauptfenster.tcl_hostname.Text & vbCrLf & vbCrLf & "Benutzername: " & Environment.UserName & vbCrLf & OSinhalt & vbCrLf & vbNewLine & vbCrLf & "Laufwerke: " & vbCrLf & vbCrLf & tmplocaldriinhalt & vbNewLine & vbNewLine & "Netzwerk: " & vbCrLf & vbNewLine & tmpipinhalt & vbNewLine & tmpmacinhalt & vbNewLine & vbNewLine & vbNewLine & "Drucker:" & vbNewLine & vbNewLine & tmpprintinhalt))
End Sub
End Class

Code des Hauptfensters:

Spoiler anzeigen

VB.NET-Quellcode

Option Explicit On
Imports System.Net
Imports System.Net.NetworkInformation
Imports System.Management
Imports System.IO
'Aufbau des User-Interfaces sowie abfrage der META-Daten
Public Class Hauptfenster
Dim d As System.Net.IPAddress() = System.Net.Dns.GetHostAddresses(System.Net.Dns.GetHostName())
Public tmpipspeicherdatei As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "ipconf.sdhf"
Public tmpmacspeicherdatei As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "macconf.sdhf"
Public tmplocaldrispeicherdatei As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "driveconf.sdhf"
Public tmpprintspeicherdatei As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "printconf.sdhf"
'Betriebssystemversion herausfinden
Public Function GetOSVersion() As String
Select Case Environment.OSVersion.Platform
Case PlatformID.Win32S
Return "Windows 3.1"
Case PlatformID.Win32Windows
Select Case Environment.OSVersion.Version.Minor
Case 0
Return "Windows 95" 'Windows 95 unterstützt .Net nicht
Case 10
If Environment.OSVersion.Version.Revision.ToString() = "2222A" Then
Return "Windows 98 - Second Edition"
Else
Return "Windows 98"
End If
Case 90
Return "Windows ME"
Case Else
Return "Unbekannt"
End Select
Case PlatformID.Win32NT
Select Case Environment.OSVersion.Version.Major
Case 3
Select Case Environment.OSVersion.Version.Minor
Case 0
Return "Windows NT 3" 'Windows NT 3 unterstützt .Net nicht
Case 1
Return "Windows NT 3.1" 'Windows NT 3.1 unterstützt .Net nicht
Case 5
Return "Windows NT 3.5" 'Windows NT 3.5 unterstützt .Net nicht
Case 51
Return "Windows NT 3.51" 'Windows NT 3.51 unterstützt .Net nicht
End Select
Case 4
Return "Windows NT 4.0"
Case 5
Select Case Environment.OSVersion.Version.Minor
Case 0
Return "Windows 2000"
Case 1
Return "Windows XP"
Case 2
Return "Windows 2003"
End Select
Case 6
Select Case Environment.OSVersion.Version.Minor
Case 0
Return "Windows Vista/Windows 2008 Server"
Case 1
Return "Windows 7"
End Select
Case Else
Return "Unbekannt"
End Select
Case PlatformID.WinCE
Return "Windows CE"
Case PlatformID.Xbox
Return "XBox"
Case PlatformID.MacOSX
Return "Mac OS X"
Case PlatformID.Unix
Return "Unix"
Case Else
Return "Unbekannt"
End Select
End Function
'Architektur herausfinden
Public Function GetArchitektur() As Integer
Return Runtime.InteropServices.Marshal.SizeOf(GetType(IntPtr)) * 8
End Function
'Klick auf 1. Button zeigt MAC an
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MAC_Button.Click
For Each nic As System.Net.NetworkInformation.NetworkInterface In System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
MessageBox.Show(String.Concat("Die MAC-Adresse des Adapters ", nic.Description, " lautet: ", nic.GetPhysicalAddress()))
Next
End Sub
'MAC auslesen
Public Sub MAC_auslesen()
Dim tmpmaclist As New List(Of String)
For Each nic As System.Net.NetworkInformation.NetworkInterface In System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
Dim macmsg As String = String.Concat("MAC von ", nic.Description, ": ", nic.GetPhysicalAddress())
tmpmaclist.Add(macmsg)
Next
Writemacs(tmpmaclist)
End Sub
'MACs schreiben
Private Sub writemacs(ByVal macs As List(Of String))
File.WriteAllLines(tmpmacspeicherdatei, macs.ToArray())
End Sub
'IPs auslesen
Public Sub ipauslesen()
Dim TmpList As New List(Of String)
For i = 0 To d.Count - 1
Dim ipmsg As String = String.Concat("IP: " & d(i).ToString)
TmpList.Add(ipmsg)
Next
Writeips(TmpList)
End Sub
'IPs schreiben
Private Sub Writeips(ByVal ips As List(Of String))
File.WriteAllLines(tmpipspeicherdatei, ips.ToArray())
End Sub
'IPs in Hauptmaske anzeigen
Public Sub Button2_Click() Handles IP_Button.Click
For i = 0 To d.Count - 1
MessageBox.Show("IP: " & d(i).ToString)
Next
End Sub
'Liest die Laufwerke ein und verweist auf die API-Deklaration für Netzlaufwerke
Public Sub Laufwerkelesen()
Dim TmpdriList As New List(Of String)
For Each localdri In IO.DriveInfo.GetDrives
If localdri.IsReady = True Then
Dim drive As String = String.Concat(localdri, vbTab, "Typ: ", localdri.DriveType, vbTab, vbTab, "Netzwerkpfad: ", GetNetPfad(localdri.ToString), vbTab, vbTab, vbTab, "Freier Speicherplatz: ", Math.Round(localdri.AvailableFreeSpace / 1024 / 1024 / 1024, 2), "GB", vbTab)
TmpdriList.Add(drive)
End If
Next
Writedrives(TmpdriList)
End Sub
' Laufwerke in Datei schreiben
Private Sub Writedrives(ByVal dri As List(Of String))
File.WriteAllLines(tmplocaldrispeicherdatei, dri.ToArray())
End Sub
' API-Deklaration für Netzlaufwerke
Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" ( _
ByVal localName As String, _
ByVal remoteName As System.Text.StringBuilder, _
ByRef length As Integer) As Integer
Public Function GetNetPfad(ByVal Drive As String) As String
Dim sName As New System.Text.StringBuilder(255)
Try
' Laufwerksbuchstabe mit abschließenden Doppelpunkt
Drive = Drive.Substring(0, 1) & ":"
' Auslesen des Pfads
WNetGetConnection(Drive, sName, 255)
Catch ex As Exception
Stop
End Try
Return sName.ToString
End Function
'Betriebssystemversion und Architektur bei Auslösung anzeigen
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OS_Button.Click
'Methode 2
MessageBox.Show(GetOSVersion() & " x" & GetArchitektur() & ": (" & Environment.OSVersion.ToString & ")") 'Liefert: Microsoft Windows NT 6.0.6002 Service Pack 2
End Sub
'ThinClient-Hostname aus Sessionfile auslesen
Public Const WTS_CURRENT_SERVER_HANDLE As Long = 0&
Public Enum WTSInfoClass
WTSInitialProgram
WTSApplicationName
WTSWorkingDirectory
WTSOEMID
WTSSessionId
WTSUserName
WTSWinStationName
WTSDomainName
WTSConnectState
WTSClientBuilderNumber
WTSClientName
WTSClientDirectory
WTSClientProductId
WTSClientHardwareId
WTSClientAddress
WTSClientDisplay
WTSClientProtocolType
End Enum
'WTS Sitzungsanfragen-Struktur
Public Structure WTS_SESSION_QUERY
Dim SessionID As Long
Dim pWinStationName As Long
Dim senum As WTSInfoClass
End Structure
'Funktionsdefinition API-Aufruf für Session-Daten auslesen
Public Declare Function WTSQuerySessionInformation Lib _
"wtsapi32.dll" Alias "WTSQuerySessionInformationA" _
(ByVal hServer As Long, ByVal SessionID As Long, _
ByVal WTS_INFO_CLASS As WTSInfoClass, ByRef QSbuffer As Long, _
ByRef pCount As Long) As Long
'Funktionsdefinition für API-Aufruf "Speicher freigeben"
Public Declare Sub WTSFreeMemory Lib "wtsapi32.dll" (ByVal pMemory As Long)
'String API's
Public Declare Function StrCopyA Lib "kernel32.dll" Alias "lstrcpyA" _
(ByVal retval As String, ByVal Ptr As Long) As Long
Public Declare Function StrLenA Lib "kernel32.dll" Alias "lstrlenA" _
(ByVal Ptr As Long) As Long
'Funktion für Auslesen des RDP-Hostnames
Public Function GetWTSQueryHost(ByVal SessionID As Long) As String
Dim retval As Long, lpBuffer As Long
Dim Count As Long
Dim lName As Long
Dim sName As String
'Remotesitzungsinformationen holen
retval = WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, _
SessionID, WTSInfoClass.WTSClientName, lpBuffer, Count)
'Funktionsausschnitt
' Prozedur erfolgreich
If retval Then
'Stringlänge ermitteln
lName = StrLenA(lpBuffer)
If lName <> 0 Then
'String initialisieren
sName = (lName * 999999999999999)
'String kopieren
Call StrCopyA(sName, lpBuffer)
End If
' Speicher wieder freigeben
WTSFreeMemory(lpBuffer)
Else
'Prozedurfehler: Keine RDP, Keine DLL da oder sonstwas faul...
MsgBox("Fehler beim Auslesen der RDP-Sitzungsdaten. Es konnten" & _
"keine Informationen gewonnen werden. ", vbCritical, _
"DLL-Zugriffsfehler " & Err.LastDllError)
End If
'Returnwert
GetWTSQueryHost = sName
End Function
'Benutzernamen abfragen
Private Sub Benutzer()
Dim benutzername = Environment.UserName
End Sub
End Class

RodFromGermany · 21. November 2013, 18:05

@pindoyu::
1. Mach da bitte einen Expander drum [+] neben dem VB-Tag:

Spoiler anzeigen

2. Kannst Du bitte den Code so reduzieren, dass nur Dein Effekt übrig bleibt?
Mach dafür bitte ein neues Projekt, das sofort funktioniert oder häng es als ZIP dran.

pindoyu · 21. November 2013, 18:13

Ich habs probiert. Der ist schon abgespeckt....
Das Problem ist, dass alles zusammenhängt und ich dann nicht den Effekt erzielen kann.

Leider hat auch das >= 1 bei GetWTSQueryHost(-1) nichts gebracht.

Und das Multiselect brachte auch keinen erfolg...

RodFromGermany · 21. November 2013, 18:15

Fang mit Option Strict On an.

pindoyu · 21. November 2013, 18:22

Habs ersetzt. Ändert aber auch nichts.... Sollte es? Oder Versteh ich dich gerade falsch?

RodFromGermany · 21. November 2013, 18:28

Poste einen Code, der keine Fehler bringt, wenn wir ihn einfügen.
Teste das bitte an einem neuen Projekt bei Dir am PC.

pindoyu · 21. November 2013, 18:33

Der bringt ja bei mir keine Fehler

Mal zur Verdeutlichung:

Wenn ich das ganze Spektakel in ner MsgBox ausgebe sollte das so aussehen, unter ThinClient-Hostname (in diesem Fall mittels tcl_hostname.text) sollte jedoch dann auch ne Nummer stehen.

Wenn ich aber statt tcl_hostname.text dann GetWTSQueryHost(-1) angebe zeigt er mir zwar auch bei ThinClient-Hostname die Nummer an aber der Rest ist weg:

Edit: ICH HABS! Hatte versehentlich ein Label in der falschen Eingabemaske verwendet :s Also die Anzeige des ThinClient-Hostnames funktioniert nun einwandfrei.

Aber das Problem mit dem OpenFileDialog besteht weiterhin....

Wie bekomme ich das hin, dass der nur dann einen E-Mail Anhang anfügt, wenn der Nutzer auch einen Anhang ausgewählt hat und wenn nicht, nichts unternimmt?

RodFromGermany · 22. November 2013, 07:07

pindoyu schrieb:

Der bringt ja bei mir keine Fehler

RodFromGermany schrieb:

wenn wir ihn einfügen.

Ich kann Deinen Code auf meinem Rechner nicht compilieren, weil es da von Fehlern nur so wimmelt.
Also:
Erstell ein neues Projekt und füge das ein, sorge dafür, dass es compiliert und dass der Effekt auftritt.
Dann poste das Projekt.

Alles macht sich selbstständig - Text aus Msg und MsgBox verschwindet, OpenFiledialog öffnet sich willkürlich

Alles macht sich selbstständig - Text aus Msg und MsgBox verschwindet, OpenFiledialog öffnet sich willkürlich

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

pindoyu schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

pindoyu schrieb:

RodFromGermany schrieb:

Benutzer online 1

Tags

Ähnliche Themen

2 Benutzer haben hier geschrieben