PDA

View Full Version : URL Encoding نحوه کد کردن لینک


mostafabestman
یک شنبه 28 آذر 1389, 17:38 عصر
سلام.من میخوام لینک رو به صورت کد در بیارم که با ارسال آن در روم یاهو آدرس کار بکنه مثل اسپمرهای موجود
یکسری کد برای اینکار پیدا کردم.ولی فقط علائم تغییر میکنه.من میخوام حروف هم تغییر کنه.نمونه تغییر یافته حروف رو توی رومها دیدم ولی چگونگی ساخت رو پیدا نکردم.
چی کار کنم؟!
meysam_meysam74
یک شنبه 28 آذر 1389, 20:04 عصر
منظورت همون %2e هست میخوای

D9%86%D8%AD%D9%88%D9%87-%DA%A9%D8%AF-%DA%A9%D8%B1%D8%AF%D9%86-%D9%84%DB%8C%D9%86%DA%A9
mostafabestman
یک شنبه 28 آذر 1389, 20:22 عصر
اره همین چیزا ولی چطور استفاده کنم.تو که همه رو درهم نوشتی!؟!؟!؟!؟؟؟
meysam_meysam74
یک شنبه 28 آذر 1389, 20:52 عصر
اگه درست منظورتون رو متوجه شده باشم باید از این کد استفاده کنید

Dim i As Integer
Dim CodSite As String
Dim STrSite As String
STrSite = "http://barnamenevis.org"
For i = 1 To Len(STrSite)
CodSite = CodSite & "%" & Hex(Asc(Mid(STrSite, i, 1)))
Next i
Text2.Text = CodSite