Monday, February 21, 2011

Recover windows 7 after removing linux from a Dual boot system

If you install linux on a hard disk partition after windows,it changes MBR(Master boot record), and then if you remove the linux ,it will result in a non bootable windows.
To fix this just follow this steps and enjoy a clean windows booting.
  insert windows installation DVD and boot from it,select repair windows option and   then command prompt.
   now run the following commands
    >diskpart
    >select volume 0
    >list volume
     this will list the drive letter of your windows DVD.(for example G)
    >exit
    >G: (or any other drive letter what you got)
    >cd boot
    >dir
    >bootsect /nt60 SYS /mbr
now exit the command prompt and restart your computer,Enjoy.

Tuesday, February 8, 2011

creating network applications in vb6(using winsock control)

This will add winsock control to your toolbox
Now drag and drop this control to your form,name it ws.
Add these controls to your form
CONTROL                                NAME                                CAPTION
command button                    cmdconnect                                connect
command button                    cmddisconnect                            Disconnect
command button                    cmdsend                                      send
command button                    cmdclear                                     Clear
command button                    cmdserver                                   Serve as server
listbox                                       list1                                            chat window
textbox                                     txtip
textbox                                     txtdata                                           
label                                         label1                                          Remote IP
label                                         label2                                          Enter Text below




your form should now look like this
 

Add following code to code window

Private Sub cmdclear_Click()
List1.Clear
End Sub

Private Sub cmdconnect_Click()
ws.Close
  ws.RemoteHost = txtip.Text
  ws.RemotePort = 2011
  ws.Connect
End Sub

Private Sub cmddisconnect_Click()
ws.Close
End Sub

Private Sub cmdsend_Click()
ws.SendData txtdata.Text
List1.AddItem "Local : " + txtdata.Text
End Sub

Private Sub Command1_Click()
ws.LocalPort = 2011
ws.Listen
End Sub

Private Sub Form_Load()

End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
List1.AddItem "Remote : " + data
End Sub









save the project,make exe by ' FILE -> MAKE EXE ',run two instance of exe, on first one click on 'serve as server',from another connect to first one by providing ip address as '127.0.0.1' & now both programs can chat.


You can chat with remote computers by running the exe on two different computers,serving as server on one and connecting to this from another.


I am giving links to source files for ready code.
simple chat program
Here is a 'link to file transfer & remote file browser' program.
file transfer & remote file browser