edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Chilkat, Telefone, Zoll Notruf

Browse Source
This commit is contained in:
ms
2024-09-02 13:40:30 +02:00
parent e4f7efacc0
commit 5b4354daa1
38 changed files with 1351 additions and 315 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Dokumentation/uscntr_DomUser.vb
View File

@@ -121,11 +121,11 @@
End Sub
Private Sub btnRDP_Click(sender As Object, e As EventArgs) Handles btnRDP.Click
cExtProgramme.RDPConnect(SelectRDPTarget(), txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, False)
cExtProgramme.RDPConnect(SelectRDPTarget(), txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, False, rdpadmin.Checked)
End Sub
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
cExtProgramme.RDPConnect(SelectRDPTarget(), txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, True)
cExtProgramme.RDPConnect(SelectRDPTarget(), txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, True, rdpadmin.Checked)
End Sub
Private Function SelectRDPTarget() As String
@@ -139,4 +139,12 @@
Return "rdpintern.verag.ag"
End If
End Function
Private Sub btnAMT_Click(sender As Object, e As EventArgs) Handles btnAMT.Click
cExtProgramme.startlink("https://" & DomUser.du_computer & ":16993")
End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles rdpadmin.CheckedChanged
End Sub
End Class