ترو خدا کمک کنید

[idenshz]

با سلام و خسته نباشید به شما دوستان گرامی
دوتان من و تا تکست باکس دارم
یکیش توشآدرس یه وبلاگه از بلاگفا و دیگری هم خالی
من میخوام کاری کنم که در تکست دوم نام کاربری بلاگفا ثبت بشه

عکس زیر رو نگاه کنید دوستان



به جایی xxxx میخوام اسم کاربری وبلاگ ثبت بشه باید اینجا hackdoost2 ثبت بشه

من میخوام نام کاربرشو خودکار کپی کنه و بزاره توی تکست دوم حالا ممکنه نام کاربری هر چیزی باشه و تعداد نامشخصی داشته باشه لطف میکنید یه نفر اینجا به ما کمک کنه ؟[

(ممکنه هر ادرسی به جای hackdoost2.blogfa.com باشه من میخوام نام کاربر توی تکست دو نشون بده
اگه کسی با مرام پیدا میشه اینجا جواب ما رو بده که خیلی کارم گیره

[Payman62]

سلام.
من که نفهمیدم چی گفتی.

[Mr.pRoGraMmer]

سلام منم نفیهمیدم چی گفتی ولی اگر منظورت اینه نام کاربری در بلاگفا ثبت بشه یا همون user نمیتونی کد امنیتی داره یعنی راهش نیست اما به این اسونی نیست من نفهمیدم چی گفتی
فکر کنم منظورت اینه در بلگفا اخه مثلان اسم وبلاگ من www.lifesms.blogfa.com هست حالا میخوای نام کاربری را بدست بیاری قبلا بلاگفا زیاد میرفتم دیگه وبلاگمو مسدود کرد دیگه نرفتم
اگر وب من www.lifesms.blogfa.com باشه تو بلاگفا یوزر میشه lifesms دیگه بلاگفا نمیرم اما فکر میکنم منظورت اینه در text1.text ادرس وبلاگ و در text2.text نام کاربری یا همون user name را بدست بیاری دقیقا میخوای چیکار کنی؟

[arashrj]

سلام
این کد را داخل یک دکمه بنویس ، و دوتا تکست روی فرم قرار بده . (تو تکست اول آدرس وبلاگ رو بنویس) . بعد از کلیک روی دکمه نام کاربری داخل تکست دوم نوشته میشه. (یا میتونی کد رو داخل رویداد Change تکست بنویسی که خودکار بشه)

کد:

Dim StrRJ As String
    Dim I As Integer
    StrRJ = LCase(Text1.Text)
    StrRJ = Replace(StrRJ, "http://www.", "http://")
    I = InStr(StrRJ, ".blogfa")
    If I <> 0 Then
        Text2.Text = Mid(Text1.Text, Len("http://") + 1, I - Len("http://") - 1)
    End If

موفق باشی