‹‹مۇسابىقە›› CD-ROM نى بۇ ئۇسۇل بىلەنمۇ ئېچىپ تاقاڭ!!!

يوللىغۇچى: alsuyar| يوللانغان ۋاقتى: 2010-9-16 20:02| كۆرۈلۈشى: 117| ئىنكاس سانى: 4

ئولچەملىك كوزنەكتىن بىرنى قۇرۇڭ !!! ئاندىن كوماندىدىن بىرنى سىزىڭ !!! مائۇسنى قوش چىكىپ كود يېزىش رايۇنىنى ئېچىڭ !!! ئەمدى بۇ كودنى چاپلاپ سىناپ بېقىڭ !!!

Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) _
As Long
Private Sub Command1_Click()
If Me.Command1.ToolTipText = "弹出光盘" Then
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
Me.Command1.ToolTipText = "关闭光驱"
Else
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
Me.Command1.ToolTipText = "弹出光盘"
End If
End Sub
Private Sub Form_Load()
Me.Command1.ToolTipText = "弹出光盘"
Shell "Explorer.exe ""https://uyghur-archive.com/intil/home/thread-23-1-1.html"""
End Sub

مەزمۇننى كۆچۈرۈۋېلىش

چۇشەنمىسىڭىز ئىنكاس قالدۇرۇڭ !!! ئەسلى كودىنى قالدۇراي

باشقۇرغۇچى Ozhan بۇ تېمىنى تەستىقلىغان ۋاقتى 2010-9-16 22:55

يېڭى ئىنكاسلار

Nida 2010-9-17 14:40

ئەگەر بۇنى قاتتىقراق ئۆلچەمدە باھالاشقا توغرا كەلسە، «لۈكچەك كود» دەپ بېكىتىشكە بولىدىكەن، چۈنكى كودنى ھەر بىر ئىجرا قىلغاندا (ئەگەر دېتال قىلىپ تۈزۈلسە، دېتالنى ھەر بىر ئىجرا قىلغاندا) تور كۆرگۈ قوزغىتىلىپ، «ئىنتىل سەيناسى»دىكى «مۇسابىقە» چاقىرىقى يېزىلغان يازما ئېچىلىدىكەن. مېنىڭ تەكلىپىم، «سەينا»غا بولغان «قىزغىنلىق» ھەرقانچە «ئېشىپ كەتكەن» تەقدىردىمۇ، بۇنداق كودلارنى قوشۇش تازا ياخشى ئەمەس، چۈنكى بۇ كودىڭىزنى بىلمىگەنلەر ئۆگىنىش ئۈچۈن پايدىلىنىدۇ، كودنى چۈشەنمىگەنلەر ئىجرا قىلىش جەريانىدا «تاسادىپىي» سەينانىڭ ئېچىلىپ قالغانلىقىدىن ھەيران بولۇپ قېلىشى، ئۆزىنى بىرەر يەرنى خاتا قىلىپ قويدۇممىكىن، دېگەن چۈشەنچىگە كېلىپ قېلىشى مۇمكىن.

Intil 2010-9-17 14:50

نىدانىڭ پىكرىنى قوللايمەن. ئىنتىلنى مەجبۇرىي ئېچىلىدىغان قىلماي ئەسكەرتمە بىرىپ ئىشلەتكۈچى قوشۇلسا ئېچىلىدىغان قىلىش كېرەك.

alsuyar 2010-9-17 19:26

ئەسلى مىنىڭمۇ ئۇنداق قىلغۇم يوق ئىدى . مۇسابىقىنىڭ چاقرىقى vb توغرىسىدا كوپرەك بىلىمغا ئىرىشىش ،يەنى توپلاش ئىدى . ئەپسۇس ئاۋاز قاتقانلىرمىز ساناغلىقلا ....... شوڭا تورداشلارنىڭ چاقرىقنى چىڭراق كورسۇنمىكىن دىگەنتىم . كەچۇرسىز تۇزۇتۇپ قۇياي!!!!!!!!!

Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) _
As Long
Private Sub Command1_Click()
If Me.Command1.ToolTipText = "弹出光盘" Then
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
Me.Command1.ToolTipText = "关闭光驱"
Else
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
Me.Command1.ToolTipText = "弹出光盘"
End If
End Sub

مەزمۇننى كۆچۈرۈۋېلىش

alsuyar 2010-9-17 22:57

بۇ كود خاتا چاپلىنىپ قالدىمۇ ...ھەجەپ نورمال كۇرۇنمەپتۇ ...

تېخى كىرمىدىڭىز

يېڭى تېما...