ir-security
چهارشنبه 05 آبان 1395, 14:42 عصر
سلام خسته نباشید
من یه برنامه ساختم که تحت سرور نیمباز هستش. شاید بعضیاتون بشناسید
یه سری کد توی سرور ردوبدل میشه که ما میتونیم براحتی ازشون استفاده های زیادی کنیم
حالا این وسط من با یه مشکل مواجه شدم که کدهارو همراه با عملکرد و اشکالات براتون میزارم و هرکی بلده مشکلشو بهم بگه ممنونم
"<body>k/"
توی خط اول که این تگ وجود داره منظور اینه که میخوایم تا خوده
k/
هرچی از سرور دریافت کردیم رو حذف کنه و اما مهمترین جاش اینه که حالا
"</body>"
اینجا توی خط چهارم میخوایم تا قبل از این تگ هرچی که مقداره دریافتیمون هست رو برامون نگه داره و توی تکست باکس نشونش بده
If InStr(getdata, "<body>k/") <> 0 Then
Dim i As Integer
getdata = Replace(getdata, "k/", "")
kick = Split(getdata, "</body>")
l1.Text = kick(i)
End If
من یه برنامه ساختم که تحت سرور نیمباز هستش. شاید بعضیاتون بشناسید
یه سری کد توی سرور ردوبدل میشه که ما میتونیم براحتی ازشون استفاده های زیادی کنیم
حالا این وسط من با یه مشکل مواجه شدم که کدهارو همراه با عملکرد و اشکالات براتون میزارم و هرکی بلده مشکلشو بهم بگه ممنونم
"<body>k/"
توی خط اول که این تگ وجود داره منظور اینه که میخوایم تا خوده
k/
هرچی از سرور دریافت کردیم رو حذف کنه و اما مهمترین جاش اینه که حالا
"</body>"
اینجا توی خط چهارم میخوایم تا قبل از این تگ هرچی که مقداره دریافتیمون هست رو برامون نگه داره و توی تکست باکس نشونش بده
If InStr(getdata, "<body>k/") <> 0 Then
Dim i As Integer
getdata = Replace(getdata, "k/", "")
kick = Split(getdata, "</body>")
l1.Text = kick(i)
End If