DARK KINGS
Thanks For Visit The Forum:) Download Tools And Enjoy:) Join Mig33 Chat Room >dhaka onuvab<

Dhaka

July 2017
SunMonTueWedThuFriSat
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendar Calendar

Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
» Dark B00mb3r by fajiil-(free)
Mon Apr 11, 2016 3:22 pm by me.punk.7

» ID creator with proxy changer and gmail dot generator
Sat Apr 09, 2016 7:47 pm by me.punk.7

» Unlimited Ids Login , Balance And Level Checker
Sat Apr 09, 2016 7:45 pm by me.punk.7

» Multy credit transfer project
Sun Feb 21, 2016 6:53 am by rezkiye

» Sockmix v2.6 Fresh Project
Fri Nov 20, 2015 12:08 pm by papeshh

» Offline Registration SYstem And Key Generator By DevelopMig33.Tk
Fri Nov 20, 2015 12:08 pm by papeshh

» All Ocx Box
Thu Oct 22, 2015 7:26 am by papeshh

» multy maker + auto activator ( updated )
Thu Oct 22, 2015 7:15 am by papeshh

» radixel kicking tool(crack) full fee
Thu Sep 03, 2015 7:26 am by rise-of-moon

free counters

Function for check mail and read mail

View previous topic View next topic Go down

Function for check mail and read mail

Post  sahriya-omu on Sat Nov 17, 2012 12:22 am

Public Function mail()
Dim a As String
a = "http://www.mig33.com/sites/index.php?c=email&a=home&v=midlet"
mail = HextoAscii("02 03 9A 00 63 00 00 00 " & DecToHexStr(Len(a) + 23) & " 00 04 00 00 00 04 00 00 00 01 00 02 00 00 00 " & DecToHexStr(Len(a)) & " " & Asciitohex(a) & " 00 01 00 00 00 01 01")
End Function


Public Function NMail(Target As String, subject As String, msg As String)
Dim a As String
Dim B As String
subject = Replace(subject, " ", "%20")
msg = Replace(msg, " ", "%20")
a = "to=" & Target & "&subject=" & subject & "&message=" & msg
B = "http://www.mig33.com/midlet/member/mail_compose.php"
NMail = HextoAscii("02 03 9A 00 4B 00 00 00 " & DecToHexStr(Len(a) + Len(B) + 28) & " 00 04 00 00 00 04 00 00 00 01 00 03 00 00 00 " & DecToHexStr(Len(a)) & " " & Asciitohex(a) & " 00 02 00 00 00 " & DecToHexStr(Len(B)) & " " & Asciitohex(B) & " 00 01 00 00 00 01 02")
End Function
avatar
sahriya-omu
Admin
Admin

Posts : 209
Points : 555
Reputation : 31
Join date : 2011-08-11
Age : 25
Location : Barisal

View user profile http://dark-kings.forumotions.net

Back to top Go down

View previous topic View next topic Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum