mahdi-a 17 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ سلام میخوام از طریق وایفا یا بلوتوس , گوشی به گوشی دیگه وصل بشم چطوریه؟ یچی شبیه چت ولی فقط یه متن ساده ارسال کنه وایفا باشه بهتره ممنون لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مجید آرتا 5,874 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ بنده کد رو تست نکرده بودم و به طور حدس بود. شما بیا توی رویداد Connected مربوط به Socket رو کد بنویس: Dim TR As TextReader TR.Initialize(socket1 .InputStream) Dim SB As StringBuilder SB.Initialize SB.Append(TR.ReadLine) Do While (TR.Ready) SB.Append(CRLF).Append(TR.ReadLine) Loop Get_txt.Text = SB.ToString کد رو تست کنید ببینید به نتیجه میرسید یا نه. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mahdi-a 17 ارسال شده در 22 اسفند، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ تست کردم ولی بازم همون مشکل , اصلا خونده نمیشه اینجاها رویداد کانکشن درست نوشتم ؟ Sub Socket1_Connected (Successful As Boolean) Dim TR As TextReader TR.Initialize(socket1.InputStream) Dim SB As StringBuilder SB.Initialize SB.Append(TR.ReadLine) Do While (TR.Ready) SB.Append(CRLF).Append(TR.ReadLine) Loop EditText1.Text = SB.ToString End Sub مشکل از چیه؟؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
dostmobile 329 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ اینو دانلود کردمتست هم کردم ولی این اتصالش شانسکیه دو سه بار خطا داد بار چهارم اوکی شد یچی باشه این گرفتاریا رو نداشته باشه یادش بخیر تو ویژوال بیسیک سوکت میزدیم پورت میدادیم لوکال وصل میشدیم ( کلاینت سرور ) تروجان نویسی تو بیسیک اندروید نمیشه همچین چیزی ؟ مثلا هات اسپا روشن باشه یه ایپی با پورت خاصی باز کنیم گوشی دوم به اون وایفا وصل باشه ( اتصال لوکال ) به پورت وصل بشیم و ارسال متن iman saeedi daghighan hamin chizi ke U mikhay ro hafte pish sakhte sharmande alan windows change kardam O majboram ENG type kunam لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
sinam443 108 ارسال شده در 11 فروردین، ۱۳۹۶ اشتراک گذاری ارسال شده در 11 فروردین، ۱۳۹۶ کلا نشد استفاده کنیم خواهشا سورسشو بزار یا لینکی که دانلودش کردی بزار در در 1393/12/22, 20:25:02، mahdi-a گفته است : مشکلم حل شد میگن جونیده یابندس واقعا راسته انقدر سرچ کرد خلاصه پیداش کردم ( سایت اصلی ) کد میزارم اینجا اگر کسی مشکل منو داشت حل بشه *همینه* این کدو یکم اصلاح کردم ، کد خالصه ( سوکت ) قابلیت دریافت و ارسال متنو داره ( فقط متن ) Sub Process_Globals Dim TcpStreams As AsyncStreams Dim Socket1 As Socket Dim ServerSocket1 As ServerSocket Dim MyIP As String Dim ServerIp As String Dim port As Int End Sub Sub Globals Private Label1 As Label Private EditText2 As EditText Private EditText1 As EditText Private Button1 As Button Private Button2 As Button Dim MyIP As String Private Label2 As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("main") MyIP = ServerSocket1.GetMyIP Label1.Text=MyIP End Sub Sub Button1_Click SendData(EditText1.Text) End Sub Sub Button2_Click Socket1.Initialize("Socket1") Socket1.Connect("192.168.1.102",1234,5000) End Sub Sub SendData(Msg As String) Dim Buffer() As Byte Msg = EditText1.Text If Socket1.Connected = True Then Try Buffer = Msg.GetBytes("UTF8") TcpStreams.Write(Buffer) Catch Log("TcpStreams.Write Error") End Try Else Log("Connection lost") End If End Sub Sub Socket1_Connected(Connected As Boolean)As Boolean If Connected = True Then ToastMessageShow("Connected",True) TcpStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"tcpStreams") Else 'ToastMessageShow("Server not available",True) End If End Sub Sub TcpStreams_NewData (Buffer() As Byte) Dim Msg As String Msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8") Label2.Text = Msg End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
محمد رشوند 1,208 ارسال شده در 12 فروردین، ۱۳۹۶ اشتراک گذاری ارسال شده در 12 فروردین، ۱۳۹۶ در 2 ساعت قبل، sinam443 گفته است : کلا نشد استفاده کنیم خواهشا سورسشو بزار یا لینکی که دانلودش کردی بزار سلام اخوی تاریخ پست که قدیمی هستش بعد اخرین بازدید ایجاد کننده این موضوع 3 خرداد 1394 هستش یکم دقت کنید و سعی کنید موضوع های 3 سال پیش رو بالا نیارید ممنون لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mahdi-a 17 ارسال شده در 22 اسفند، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ iman saeedi daghighan hamin chizi ke U mikhay ro hafte pish sakhtesharmande alan windows change kardam O majboram ENG type kunam خب میشه لینکشو بدین خیلی گیرم فقط در حد عدد 1 یا 0 ارسال کنه واسم کافیه ممنون لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
dostmobile 329 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ بهش پیام خصوصی بده لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mahdi-a 17 ارسال شده در 22 اسفند، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ مشکلم حل شد میگن جونیده یابندس واقعا راسته انقدر سرچ کرد خلاصه پیداش کردم ( سایت اصلی ) کد میزارم اینجا اگر کسی مشکل منو داشت حل بشه *همینه* این کدو یکم اصلاح کردم ، کد خالصه ( سوکت ) قابلیت دریافت و ارسال متنو داره ( فقط متن ) Sub Process_Globals Dim TcpStreams As AsyncStreams Dim Socket1 As Socket Dim ServerSocket1 As ServerSocket Dim MyIP As String Dim ServerIp As String Dim port As Int End Sub Sub Globals Private Label1 As Label Private EditText2 As EditText Private EditText1 As EditText Private Button1 As Button Private Button2 As Button Dim MyIP As String Private Label2 As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("main") MyIP = ServerSocket1.GetMyIP Label1.Text=MyIP End Sub Sub Button1_Click SendData(EditText1.Text) End Sub Sub Button2_Click Socket1.Initialize("Socket1") Socket1.Connect("192.168.1.102",1234,5000) End Sub Sub SendData(Msg As String) Dim Buffer() As Byte Msg = EditText1.Text If Socket1.Connected = True Then Try Buffer = Msg.GetBytes("UTF8") TcpStreams.Write(Buffer) Catch Log("TcpStreams.Write Error") End Try Else Log("Connection lost") End If End Sub Sub Socket1_Connected(Connected As Boolean)As Boolean If Connected = True Then ToastMessageShow("Connected",True) TcpStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"tcpStreams") Else 'ToastMessageShow("Server not available",True) End If End Sub Sub TcpStreams_NewData (Buffer() As Byte) Dim Msg As String Msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8") Label2.Text = Msg End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
mahdi-a 17
سلام
میخوام از طریق وایفا یا بلوتوس , گوشی به گوشی دیگه وصل بشم
چطوریه؟
یچی شبیه چت ولی فقط یه متن ساده ارسال کنه
وایفا باشه بهتره
ممنون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
28 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.