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 :.