[Quantum Fusion]

Here is a skype resolver source I have been working on, just a little project of mine. I know there are a ton of these out there, but I haven't seen one that works like this, so I thought I might release it because I think it is cool.

You will need

• A Window Form
  


• A Button
  


• A TextBox
  


• A Module
  

Module Code:

Code

Imports System.Windows.Forms
Imports System.Net.Sockets
Imports System.Text
Public Module Module1
    Sub Main()
        Console.Title = "Hub"
        Console.ForegroundColor = ConsoleColor.Yellow
        Console.Write("Input: ")
        Dim Input As String = Console.ReadLine
        If Input = "resolver" Then
            Console.Write("SaveLog? [1 = Yes] [0 = No] : ")
            Dim SaveLogBoolean As String = Console.ReadLine()
            Form1.SaveAlog = SaveLogBoolean
            Console.Clear()
            Console.ForegroundColor = ConsoleColor.Cyan
            Console.WriteLine("Closing The Console Will Result In The Entire Application Closing.")
            Console.ResetColor()
            Console.WriteLine()
            Console.WriteLine()
            Console.ForegroundColor = ConsoleColor.Magenta
            Console.WriteLine("LOG:")
            Console.WriteLine("-------------------------------------")
            Console.WriteLine()
            Console.Title = "resolver Console"
            Application.Run(New Form1())
            Console.Clear()
            Main()
        Else
            Console.Clear()
            Console.WriteLine("Error: Command " & Input & " Not Found.")
            Console.WriteLine()
            Main()
        End If
    End Sub
End Module

WinForm Code:

Code

Imports System.Net
Public Class Form1
    Dim FILE_NAME As String = "log.txt"
    Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
    Public Shared SaveAlog As String
    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using client As New WebClient
            client.Headers("User-Agent") = "Chrome/40.0.2214.111"
            Dim t1 As String = TextBox1.Text
            Dim DatNiggasIP As String = client.DownloadString("http://api.predator.wtf/resolver/?arguments=" & t1)
            Dim DatNiggasLoc As String = client.DownloadString("http://ip-api.com/line/" & DatNiggasIP)
            If t1 = "" Then
                Console.WriteLine("Please enter a username.")
            ElseIf DatNiggasIP = "Crap, No IP Was Found!" Then
                Console.ForegroundColor = ConsoleColor.Red
                Console.WriteLine("Resolver could not find an Ip for the username '" & t1 & "'")
                Console.WriteLine()
            Else
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("✓ Resolver returned skype " & t1 & "'s Ip as --->  " & DatNiggasIP)
                Console.WriteLine("---------------------------------------------------")
                Console.WriteLine(DatNiggasLoc)
                Console.WriteLine()
                If SaveAlog = "1" Then
                    objWriter.WriteLine("Resolver returned skype name " & t1 & "'s Ip as --->  " & DatNiggasIP)
                    objWriter.WriteLine(DatNiggasLoc)
                    objWriter.WriteLine()
                    Console.ResetColor()
                End If
            End If
        End Using
    End Sub
    Private Sub Form1_FormClosing(sender As Object, e As Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        objWriter.Close()
    End Sub
End Class

Screenshots:

[nathan72389]

it really shows your class when you name your variables like "DatNiggasIP" "DatNiggasLoc"
the code is not even that good. this was one of those projects you should of put in the trash.

[MeltyNet]

Ok tutorial, hopefully someone can put it to use!

[Streetlight.]

................ Same source
https://www.codeleakers.com/showthread.p...ource-Code

[Hiiro]

................ Same source
https://www.codeleakers.com/showthread.p...ource-Code

That's leeched off HF too, read the comments. :P

[Streetlight.]

That's leeched off HF too, read the comments. :P

Yeah but the date is from 2013 on that post also