كيف يتم ربط البرنامج بالإنترنت - ملء الشاشة و ارسال رساله للجوال

السلام عليكم ورحمة الله وبركاته

اهلا وسهلا بك عضوا بينانا

الرجاء في المرات القادمة ان يكون العنوان دال على محتوى الموضوع

استخدام محرك البحث

عدم طرح اكثر من سؤال في موضوع واحد

هذا افضل لك ولنا ( ولتوفير الوقت والمجهود )

اقتباس

ابغى طريقة ربط البرنامج بالإنترنت ؟

راجعي هذا الموضوع : /index.ph...st&p=629259

اقتباس

ابغى اعرض البرنامج ملء الشاشة؟

لو تريدين تغير حالة الـ FOrm الى Maxmize

Me.WindowState = 2

اما اذا تقصدين ان يملئ دوت وجود الـ TitleBar

غيري خاصية الـ BorderStyle الى None

Me.Move 0, 0, Screen.Width, Screen.Height

اقتباس

ايضا ابغى البرنامج يرسل رسالة الى الجوال

راجعي هذا الموضوع :

ارسل SMS بكل سهولة وسرعة فائقة 123» 6يمكن ارسال رسالة علي اي موبايل في العالم

بالتوفيق ........

A7med_prof

شكرا جزيلا الله يعطيك العافية ان شاء الله مشكوووووووور على تعاونك

اعتذر لكم وشاكرة للتوضيح وان شاء الله ما تتكرر

-waf

اخي الكريم كل كلمات الشكر تقف عاجزة امام ما تقدمونه للعلم

فجزاكم الله عنا خير لاجزاء

بالنسبة لبرنامج الربط مع الإنترنت حسب ما فهمت منه انه يقوم بالمقارنه بين قاعدتين بيانات .

انا اقصد ان يكون متصل بموقع معين يقوم المستخدم بارسال البيانات من البرنامج الى الموقع اي حذفها من البرنامج والرجوع اليها في الموقع

اتمنى اكون وصلت المقصود ؟

أهلاً وسهلاً بك ....

ربط البرنامج بالإنترنت :

وضع الأداة WebBroser , لفعل ذلك :

Ctrl+T >> Microsoft Internet Controls << OK

كود عرض صفحة :

  webbrowser1.Navigate ("Bagrname")

كود إرسال رسالة SMS إلى جوال :

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

3/ عرض البرنامج ملئ الشاشة :

غيري خاصية Windowstate للنموذج إلى : 2-Maximized

Ala2 VB

السلام عليكم ورحمة الله وبركاته

أختي العزيزه هل قرأتي بدايه من المشاركه رقم 15

/index.ph...st&p=629250

وكان نصها :

A7med_prof

اقتباس

السلام عليكم ورحمة الله وبركاته

المشكله امامك الان هي كيفية الاتصال بقاعدة البيانات موجوده على الانترنت ؟

اسير اللحـب

اقتباس

بالظبط هي كيف الاتصال بقاعدة البيانات اللي علي الموقع و جلب منها البيانات

A7med_prof

اقتباس

السلام عليكم ورحمة الله وبركاته

هناك اكثر من طريقه ,,,,

- اولا بالاعتماد على بروتوكول الـ TCP/IP :

القصه كلها تعتمد على الـ ConnectionString ولقد قمت بتفصيص الـConnectionString حتى يسهل استيعابه وقراءته ومثالي على قاعدة بيانات Access .

اولا تكتب الـ IP الخاص بالـ Server في متغير مثلا strServer

strServer = "200.121.121.2"

ثم المكان Path الموجود فيه الفاعدة على الـ ConnectionString في متغير يسمى stSsource مثلا .

stSsource = "c:\temp\data1.mdb"

فيصبح الـ ConnectionString بهذا الشكل :

"Provider=MS Remote;" & _
"Remote Server=" & strServer & ";" & _
"Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strSource & ";" & _"admin"

- ثانيا بالاعتماد على بروتوكول الـ HTTP باستخدام XML via ASP مع الـ VBScript

هذا طبعا سيطول شرحه ولكن هناك مثال ستستفيد منه جدا وسيخدمك في هذه الناحيه بهذه الطريقه ....

بالتوفيق ............

A7med_prof

الملفات المرفقة ADO_Web_Data.zip ( 32.81k ) عدد مرات التحميل: 14

اما اذا كنت تقصدين ان البرنامج اساسا لن يعتمد على قاعدة بيانات اي محاكات 2 ابلكاشن يكونو عباره عن Clinet & server

راجعي هذه الموضوع :

هل جربت اى برنامج شات يعمل على الـ WAN

درس في انشاء برنامج خادم /عميل بالديركت بلاي 8

كيف أستقبل البيانات من الخادم

طلب طريقة فتح فورم واغلاقه بواسطة الوينسوك

هل يمكن لبرنامج أن يضيف بيانات إلى موقعي على الانترنت ؟؟

كيف أربط برنامج على جهاز عميل

Winsock , و الأتصال عبر انترنت!

ابحث عن كود اتصال بين جهازين كلاهما خلف راوتر

مساعدة ببرمجة Clinet & server

بالتوفيق ....

A7med_prof

مشكووووووووووووووووورين الله يعطيكم العافية رح اطبق الشرح ان شاء الله

واكرر شكري على تجاوبكم

دمتم بود

تم تحرير المشاركه اعلى راجعيها مرة اخرى .

بالتوفيق .............

A7med_prof

A7med_profشكرررررررررا جزاك الله خير الحمد الله صلح معي البرنامج وضحت الفكرة واتصل

معليش رح اثقل عليك بالنسبة للبرنامج الثاني smsانا ما فهمته ما عرفت اشغله

فيه شرح لطريقة عمل البرنامج؟؟؟ :P

الله يوفقك....

اقتباس

معليش رح اثقل عليك بالنسبة للبرنامج الثاني smsانا ما فهمته ما عرفت اشغله

ارجو التوضيح اكثر , لن استطيع استيعابك

وما هو البرنامج المقصود ؟

بالتوفيق .............

A7med_prof

انا اقصد الي انت نزلته بالرابط

راجعي هذا الموضوع :

ارسل SMS بكل سهولة وسرعة فائقة 123» 6يمكن ارسال رسالة علي اي موبايل في العالم

تحياتي