如何用vb编写qq农场外挂？
看到网上不少外挂，但一直不知如何下手，哪位大侠能够指点迷津？或给个思路？最好有现成的，让俺参谋参谋，谢了。

[解决办法]
好!我继续--

总算完了----------

VB.NET code

    Public Class Login        Public Shared Function GETLogin(ByVal usernum As String, ByVal userpassword As String, ByRef cookie As CookieContainer) As String            Dim sc As New MSScriptControl.ScriptControl()            sc.Language = "JavaScript"            sc.AddCode(My.Resources.TencentLogin)            Dim passhash As String = sc.Run("preprocess", userpassword).ToString            sc = Nothing            Dim usagecookie As CookieContainer = cookie            Dim LogPagSource As String = Core.Net.GetHtmlSourse("http://qzone.qq.com/", usagecookie)            Dim IFrameUrl As String = Core.Text.MiddleText(LogPagSource, "<iframe name=""login_frame"" id=""login_frame"" allowtransparency=""true"" scrolling=""no"" border=""0"" frameborder=""0"" width=""100%"" style=""height: 270px;"" src=""", """>")            IFrameUrl = IFrameUrl.Replace("&", "&")            Dim Source As String = Core.Net.GetHtmlSourse(UrlDecode(IFrameUrl), usagecookie)            Dim qstring As New Core.Text.QueryString            Dim HiddenField = Function(name) Core.Text.MiddleText(LogPagSource, "<input type=""hidden"" name="" " & name & "  "" value=""", """ />")            qstring.Add("u", usernum.Trim)            qstring.Add("c", passhash)            qstring.Add("verifycode=!JJU")            qstring.Add("aid", HiddenField("aid"))            qstring.Add("u1", HiddenField("u1"))            qstring.Add("fp", HiddenField("fp"))            qstring.Add("h", HiddenField("h"))            'qstring.Add("ptredirect", HiddenField("ptredirect"))            qstring.Add("ptlang", HiddenField("ptlang"))            qstring.Add("frm_ui", HiddenField("frm_ui"))            qstring.Add("dumy", HiddenField("dumy"))            Dim Referer As String = vbNullString            Referer &= "http://ui.ptlogin2.qq.com/cgi-bin/login?"            Referer &= "link_target=blank&"            Referer &= "appid=" & UrlEncode(qstring("aid")) & "&"            Referer &= "hide_title_bar=1&"            Referer &= "no_verifyimg=1&"            Referer &= "s_url=" & UrlEncode("http://imgcache.qq.com/qzone/v5/loginsucc.html?para=izone") & "&"            Referer &= "f_url=" & UrlEncode(qstring("fp")) & "&"            Referer &= "target=top&"            Referer &= "qlogin_jumpname=jump&"            Referer &= "qlogin_param=u1=" & UrlEncode("http://qzone.qq.com/new.html") & "&"            Referer &= "ptcss=0"            Dim result As String            result = Core.Net.GetSourseByGET("qzone.qq.com", qstring, usagecookie, Referer)            cookie = usagecookie            Return result        End Function    End ClassEnd Namespace