Flip Text Style

Hello Guys i want to share something cool for your Facebook Status ٩(^‿^)۶

you can flip your text message here:

FLIP TEXT HERE

enjoy

~~> e-yhamtech

Clean My Documents

today im gona share some batchfile script that can delete all the files in the workstation.

im doing this to clean all My Documents in my work. instead of manual delete or install some program, this simple
script can erase all files and sub files in workstation.

take note: this script is delete all the files only
               NOT the FOLDER




ok do the following:

-open notepad
-type the script
-save as clean my doc.bat extension name
-now you can run the program

any question?
~~e-yhamtech

My Very Own FB Enabler

Description:

The program allows the user to enable disabled Web HOST filter

 

FB Enabler is a small and simpleprogram that i made in batcfile converted to executable application that runs on Microsoft Windows. It allows the user to enable disabled windows host filter.

This is obviously a very dangerous practice if used recklessly but having said that, you'd be surprised at how often it comes in handy.

FB Enabler has a very simple user interface;

FB Enabler is a very simple utility and does not ship with an install program. The installation process is simple; just copy somewhere on your system and run the program.

~~> e-yhamtech

DATA String Command

'mostly i used this code when im in coding vb6database
'Begin Here-----------------
dim dbs as database,rst as recordset
'-----------
Form_load()
set dbs=opendatabase(app.path & "\database.mdb")
'-----------
command()

set rst=dbs.openrecordset(" SELECT * FROM table WHERE command1='" & text1.text & "' and command2='" & text2.text & "';")

if rst.recordcount <> o then

Action

end if

'------

delete_data()
dbs.execute("delete from table where record='" & text.text & "';")
'------

'----deleting using data

data1.recordset.delete
data1.recordset.movenext
'--------------------------

add_command()
set rst=dbs.openrecordset("table")

rst.addnew
rst!name=text.text
rst.update

'--------

edit_command()
set rst=dbs.openrecordset("table")

rst.edit
rst!name=text.text
rst.update
'------

rst.addnew
rst!name=text.text
rst.update






-----end--- for some question just email me

Systray icon script

Private Sub Form_Load()
      
        With nid
            .cbSize = Len(nid)
            .hwnd = Me.hwnd
            .uId = vbNull
            .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
            .uCallBackMessage = WM_MOUSEMOVE
            .hIcon = Me.Icon
            .szTip = "Console" & vbNullChar
        End With
       
    Shell_NotifyIcon NIM_ADD, nid
   
End Sub

---------

Private Sub mnuShow_Click()

   form1.Show
    mnuShow.Enabled = False
    mnuHide.Enabled = True
   
End Sub

Private Sub mnuHide_Click()

    form1.Hide
    mnuHide.Enabled = False
    mnuShow.Enabled = True

End Sub

Private Sub mnuExit_Click()
   
    Unload Me

End Sub
---------

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
    Dim Result, Action As Long
   
    If Me.ScaleMode = vbPixels Then
        Action = X
    Else
        Action = X / Screen.TwipsPerPixelX
    End If
   
    Select Case Action

    Case WM_LBUTTONUP
        Result = SetForegroundWindow(Me.hwnd)
        PopupMenu mnuFile
   
    Case WM_RBUTTONUP
        Result = SetForegroundWindow(Me.hwnd)
        PopupMenu mnuFile
   
    End Select
   
End Sub

----------------------------------------------***---------------------------------------------------------
For Modules Modules
_______________________________________________________________________
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206

Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
     
Public nid As NOTIFYICONDATA

Simple Shutdown Script

'shutdown
Shell "Shutdown -s -f -t 0"

'logoff
Shell "Shutdown -l -f -t 0"

'restart
Shell "Shutdown -r -f -t 0"

self deleter script

Sub KillMe()
Dim ff As Integer, batname As String, ext As String, batnum As Long
    ChDir App.Path
    ext = ".bat"
    Do
        batname = "DelMe" & Format(batnum) & ext
        batnum = batnum + 1
    Loop While Len(Dir(batname))
    ext = ".exe"
    ff = FreeFile
    Open batname For Output As ff
    Print #1, "@Echo off"
    Print #1, ":Repeat"
    Print #1, "del """ & App.EXEName & ext & """"
    Print #1, "if exist """ & App.EXEName & ext & """ goto Repeat"
    Print #1, "del " & batname
    Close #1
    batnum = Shell(batname, 0)
    End
end sub