الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أريد كود يرسل رسالة sms لجوال

مغلق
بدأه ramos في 16 يوليو 2006 · 31 رد · 2,036 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أرجوكم أريد كود يرسل رسالة sms لجوال

علما أني وجدت واحدا بالفعل لكنه لا يعمل على visual basic .net 2005

بل يعمل على visual basic 6

الكود كالتالي

:lol: 

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
1.GIF
#2

يا مبرمجين لقد وجدت كودا جيدا ولكنه لا يعمل إلا على vb6 للأسف

الكود يراقب إحدى منافد الجهاز و يحميك من القراصنة

و هو كالتالي 

Private Sub Command1_Click()
لجعل البرنامج في إنتظار المتصل'
Winsock1.LocalPort = Text1.Text
Winsock1.Listen
Command1.Enabled = False
Label1.Caption = "البرنامج في إنتظار متصل"
End Sub
Private Sub Command2_Click()
Winsock1.Close
Command1.Enabled = True
Label1.Caption = "توقف عن الإنتظار"
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

Label4.Caption = Label2.Caption + 1 List1.AddItem 
Winsock1.LocalHostNameList2.AddItem Winsock1.LocalIPList3.AddItem Label2.CaptionLabel1.Caption = "تم الإتصال بالبرنامج"
Beep
End Sub

أيوجد بديل في visual basic.net 2005

لأنني في حاجة شديدة إليه

;)

تم تعديل هذه المشاركة بواسطة ramos في 16 يوليو 2006 في 14:19

1.GIF
#3

ألا يعرف أحد الأعضاء بديلا له أسعفوني أرجوكم :s

1.GIF
#4

ألا يوجد بديل ؟

1.GIF
#5

الرجاء روابط لكتب أو مقالات أو دروس عربية عن البرمجة الكائنية التوجه oop :P

1.GIF
#6

أرجوكم lكيف أعمل كلمة سر لبرنامجي بحيث يحددها المستخدم

1.GIF
#7

كيف أقوم برط حدث الضغط على زر معين بضغط المستخدم على ctrl+m+g :o

1.GIF
#8

كيف أقوم بأخذ صورة لسطح المكتب :P

1.GIF
#9

كيف أظهر كل processus التي تعمل في النظام و كيف أوقفها :^)

1.GIF
#10

كيف أغير شفافية taskbar :P

1.GIF
#11

هل من كود لتبديل ثيم الويندوز :P

1.GIF
#12

هل لي بكود يعمل browse للملفات jpg.bmp في حاسب المستخدم ثم يقوم بوضع الصورة في picture box :lol:

1.GIF
#13

هل لي بكود يقوم بتغيير resize لصورة معينة بحيث يجعلها pixels 117 * 183

1.GIF
#14

:lol: كيف يمكنني أن أعرف مساحة القرص الخالية

1.GIF
#15

هل يمتلك أحدهم كود لعمل defragmat للذاكرة أنا محتاج إليه و أرجو مساعدتي :lol:

1.GIF
#16

أرجوكم يا مبرمجين أريد تبديل ملف من النظام في system 32 و هو ntoskrnl .exe من خلال برنامجي فكيف السبيل إلى ذلك . أريد ردا سريعا إن إستطعتم فقد أرقتني هذه المشكلة :o

1.GIF
#17

الامر بسيط جدا اجلب كاميرا و خذ صورة لسطح المكتب :D

او حمل الشيفرة من هنا :

Capture Desktop without windows API

اللهم صل و سلم على سيدنا محمد

كاف و نون خلقهم و فنائهم كاف و نون

عالمي شاشة و لغتي صفر و واحد

Just Smile ............You can do it

When you stop learning ... You stop leading

لساني بنطقي صامت عنه عادل............وقلبي بصمتي ضاحك منه هازل

وأتـعـب من نـاداك من لا تـجيبـه............وأغـيظ من عـاداك من لا تـشاكـل

مدونتي الشخصية : Tammam Koujan

آخر مواضيع المدونة :

#18

عندي مؤشر فأرة جميلة وهو بإمتداد .cur أريد إستعماله في برنامجي فهل من طريقة لذلك

1.GIF
#19

هل يوجد لديكم كود لإدراج بيانات من الأكسل :P

1.GIF
#20

أريد ربط إمتداد .ged ببرنامجي فهل يمكن ذلك أرجوكم أريد كود يقوم بهذا :lol:

1.GIF
#21

أرجوكم كيف أغير خلفية النظام من خلال برنامجي

1.GIF
#22

كيف أضع إيقونة البرنامج بجوار الساعة في شريط المهام عند التصغير :wacko:

1.GIF
#23

هل تقصد الحصول على البيانات من الاكسل

يمكنك ان تعامل ملف الاكسل كأنه قاعدة بيانات و تربط معه تحصل على البيانات منه مثل اي قاعدة بيانات عادية

اللهم صل و سلم على سيدنا محمد

كاف و نون خلقهم و فنائهم كاف و نون

عالمي شاشة و لغتي صفر و واحد

Just Smile ............You can do it

When you stop learning ... You stop leading

لساني بنطقي صامت عنه عادل............وقلبي بصمتي ضاحك منه هازل

وأتـعـب من نـاداك من لا تـجيبـه............وأغـيظ من عـاداك من لا تـشاكـل

مدونتي الشخصية : Tammam Koujan

آخر مواضيع المدونة :

#24

أرحوكم كود لمعرفة معلومات عن حالة الذاكرة

لقد وجدت بالفعل واحدا لكنه يعمل على vb6 فهل يمكن لأحد الأعضاء تحديثه ؟ 

Public Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Public Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)

Dim MS As MEMORYSTATUS
MS.dwLength = Len(MS)
GlobalMemoryStatus MS

MsgBox MS.dwMemoryLoad 
MsgBox MS.dwTotalPhys 
MS.dwAvailPhys 
MS.dwTotalPageFile 
MS.dwAvailPageFile 
MS.dwTotalVirtual 
MS.dwAvailVirtual
1.GIF
#25

أريد قطع أجزاء من النموذج فهل يمكن ذلك :lol:

1.GIF

هذا الموضوع مغلق.

مواضيع مشابهة