الاداة winsock

elsayed24 · 25 يوليو 2005، 17:45

اولا : الاداة winsock هي اداة هامة ولكن ليس لها النصيب الذي تستحقه في المنتدي كما ان الكتب التي تتطرق اليها ليست كثيرة برجاء منالسادة القائمين على المنتدي ارفاق بالمنتدى كتب وشروحات وشفرات تخص هذه الاداة الهامة
ثانيا :- استفسار هل من الممكن عمل برنامج من خلال vb6 نتمكن به من ارسال sms للموبايل
برجاء الافادة
وفقكم الله وشكرا

الريامي · 25 يوليو 2005، 22:04

كود ارسال رساله للجوال

كود المصدر

Dim SMS As Simplewire.SMS
Dim carrier As Simplewire.SMSCarrier
Dim Index As Integer
' instantiate the the request
Set SMS = New Simplewire.SMS
' send off a carrier list request
SMS.CarrierListSend
' first off, we need to check if the req
' uest was a success
If SMS.Success = False Then
' display the error description
MsgBox SMS.ErrorDesc & " " & SMS.ErrorCode, vbCritical, "Carrier List Error"
' kill the pager interfaces
Set SMS = Nothing
' stop the program
End
' otherwise, we have a valid response
Else
' resize PagerService array to make a pe
' rfect fit
ReDim SMSCarrierID(SMS.CarrierList.Count)
ReDim SMSCarrierTextMaxLength(SMS.CarrierList.Count)
' init the integer
Index = 0
' loop until the next service doesnt exi
' st
For Each carrier In SMS.CarrierList
' set the new item on the combo box and
' set the subtitle in the
.CarrierList.AddItem carrier.Title & " " & carrier.Subtitle
' set the service id for the global serv
' ice id array
SMSCarrierID(Index) = carrier.ID
SMSCarrierTextMaxLength(Index) = carrier.TextMaxLength
' increment the index
Index = Index + 1
Next
' init the list
.CarrierList.ListIndex = 0
End If
' kill the sms object
Set SMS = Nothing

عرض الكل

الريامي · 25 يوليو 2005، 22:09

تابع هذي الروابط لكي تتعرف على هذي الأدة :-

uni..net/showthread.php?t=4716
vbzoom.com/vz/show.php?UserID=1&MainID=3&SubjectID=9498
arabmoheet.net/forum/default.a…page=3&topic_no=21&PAGE=1
arabteam2000-forum.com/index.php?showtopic=43484&st=0

كود المصدر

مشاركة