SSK, Makro ve Spoof Olayı

[Karanlik1]

Bu Linkte veyselemre ve Haluk beyin hazırladığı mükemmel Ssk E-bildirge için şifreleri doldurma makrosu var. SSK nın link sistemi çok karışık olduğu için bi yere gitmek için 4-5 tane farklı sayfadan geçmeniz gerekiyor ve ben bunu zaman kaybı olarak görüyorum. Ben quick spoof programı ile spoof yaparak istediğim sayfaya ulaşabiliyorum rahatça. Merak ettiğim makro ile Spoof olayı yapılabilir mi?

 

[Karanlik1]

Acaba bu kod kullanılabilir mi?

 Function FetchURL(SomeURL As String, Referer As String) As String
    Dim WebResp As HTTPWebResponse
    Dim HTTPGetRequest As HttpWebRequest
    Dim sr As StreamReader
    Dim myString As String
    HTTPGetRequest = DirectCast(WebRequest.Create(SomeURL), HttpWebRequest)
    HTTPGetRequest.KeepAlive = False
    HTTPGetRequest.Referer = Referer
    WebResp = HTTPGetRequest.GetResponse()
    sr = new StreamReader(WebResp.GetResponseStream(), Encoding.ASCII)
    myString = sr.ReadToEnd()
    Return myString
End Function

 

[Karanlik1]

Bu fonksiyonu vba'da çalıştırdığımda "HttpWebRequest" tanımlanamıyor gibi birşey diyor. Bu url spoof'u vba'da yapmanın başka bir yolu var mıdır acaba?