Visual Basic

zhiyuan16 wrote:

this is first time for me to use winsock in vb6, i don't how to exchange data in 2 different exe,

zhiyuan16 wrote:

although i searched online, but i still didn't get what i expect. anyone can tell me this point--step by step.

I are Troll

'Create a new project: Add 3 TextBox, 3 CommandButton And 1 Winsock. Do not change any of them's Name.
'Paste this whole string inside your form's code window
Option Explicit
'Text1= Remote IP/MachineName; for local 127.0.0.1
'Text2= Port Number; I used 1971; you should be sure that the given port is not in use

'Command1=Connect
Private Sub Command1_Click()
Winsock1.Connect Me.Text1, Me.Text2
End Sub

'Command2=Start Listening
Private Sub Command2_Click()
Winsock1.LocalPort = Me.Text2
Winsock1.Listen
End Sub

'Command3=Send Text
Private Sub Command3_Click()
'Text3= what you want to send
    Winsock1.SendData Me.Text3.Text
    'Me.Caption is used to display status
  Me.Caption = "Local Send" & Me.Text3.Text
End Sub

'Received text
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 Dim AD As String
 Winsock1.GetData AD
 Me.Caption = "Remote: " & AD
 End Sub

'ConnectionRequest
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    On Error Resume Next ' Just in case there's an error, continue with next command.
     Winsock1.Close ' Close any open socket (just in case).
     'Must accept the request to continue
    Winsock1.Accept requestID
 Me.Caption = "Request accepted"
 End Sub
 
'Chat session closed
Private Sub Winsock1_Close()
Me.Caption = "Closed"
End Sub

'Connected
Private Sub Winsock1_Connect()
 Me.Caption = "Chat Started at " & Time
End Sub

djdrew wrote:

Append values to RTF string
_rtf.Append("{\pict\wmetafile8")
_rtf.Append("\picw")
_rtf.Append(picw)
_rtf.Append("\pich")
_rtf.Append(pich)
_rtf.Append("\picwgoal")
_rtf.Append(picwgoal)
_rtf.Append("\pichgoal")
_rtf.Append(picw)
_rtf.Append(" ")

_rtf.Append("{\pict\wmetafile8")
_rtf.Append("\picw")
_rtf.Append(picw)
_rtf.Append("\pich")
_rtf.Append(pich)
_rtf.Append("\picwgoal")
_rtf.Append(picwgoal)
_rtf.Append("\pichgoal")

// here is the typo, where you had picw
_rtf.Append(pichgoal)
_rtf.Append(" ")

Public Class Form12 Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "

#End Region

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As_
System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
Label1.Text = "You are here->" & " " & e.Node.FullPath
'displaying the path of the selected node
Label2.Text = "Current node selected:" & " " & e.Node.Text
'displaying the selected node
End Sub

End Class 

Private Sub treeQiaoTi_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles treeQiaoTi.NodeMouseClick
        Me.Text = e.Node.Text ' real text in clicked node.
        If e.Node.Text = "abc" Then 'Check this abc
            panJieGuan2.Visible = False
            Panel1.Visible = True
            Panel1.BringToFront() 'Check it
        Else
            Panel1.Visible = False
            panJieGuan2.Visible = True
            panJieGuan2.BringToFront() 'It too
        End If
    End Sub

Private Sub treeQiaoTi_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles treeQiaoTi.AfterSelect
End Sub

Dim i As Integer
 i = 1        

   While Trim(sheet2.Cells(i, 1)) <> ""
      sheet1.cells(i,1)=sheet2.cells(i,1)
      sheet1.cells(i,2)=sheet2.cells(i,2)
      sheet1.cells(i,3)=sheet2.cells(i,3)
      i=i+1
   wend

Dim i As Integer
 i = 1        

   While Trim(sheet2.Cells(i, 1)) <> ""
      sheet1.cells(i+1,1)=sheet2.cells(i,1)
      sheet1.cells(i+1,2)=sheet2.cells(i,2)
      sheet1.cells(i+1,3)=sheet2.cells(i,3)
      i=i+1
   wend

i=2

if sheet1.cells(1,1)=sheet2.cells(1,1) then

Dim i As Integer
 i = 2         
 While Trim(sheet2.Cells(i, 1)) <> ""
   sheet1.cells(i,1)=sheet2.cells(i,1)
   sheet1.cells(i,2)=sheet2.cells(i,2) 
   sheet1.cells(i,3)=sheet2.cells(i,3)  
   i=i+1   
 wend
End if

Sub CopyToTarget()
    Dim tgt As Excel.Workbook
    Dim target As String
    Dim rng As Range
    
    ' define the range to copy here
    ' with End(xlDown) you catch all the rows as long as there are no empty cells.
    Set rng = ActiveSheet.Range(Cells(2, 1), Cells(2, 1).End(xlDown))
    
    ' open the target workbook as object; in this case the workbook has to exist already!
    Set tgt = Application.Workbooks.Open("D:\Target.xls")
    
    ' copy the range to the required cell
    rng.Copy tgt.Worksheets("Tabelle1").Cells(2, 1)
    
    ' save and close the target workbook
    tgt.Save
    tgt.Close
    
    ' delete objects that are no longer needed
    Set rng = Nothing
    Set tgt = Nothing
End Sub

if ActiveSheet.Range(Cells(1, 1)="Emp Num" then
  Set rng = ActiveSheet.Range(Cells(2, 1), Cells(2, 1).End(xlDown))
   Set tgt = Application.Workbooks.Open("D:\Target.xls")
   rng.Copy tgt.Worksheets("Tabelle1").Cells '  tgt.Save
   tgt.Close
end if

Sub CopyToTarget()
    Dim tgt As Excel.Workbook
    Dim rng As Range
    Dim srcHeader As Range
    Dim tgtHeader As Range
    Dim dataCol As Integer
    
    ' define the range to copy here, supplying the column no you wish to copy
    ' with End(xlDown) you catch all the rows as long as there are no empty cells.
    dataCol = 1
    Set srcHeader = ActiveSheet.Cells(1, dataCol)
    Set rng = srcHeader.Range(Cells(2, dataCol), Cells(2, dataCol).End(xlDown))
    
    ' open the target workbook as object; in this case the workbook has to exist already!
    Set tgt = Application.Workbooks.Open("D:\Target.xls")
    
    ' find the header of the given dataCol in row 1 of the target worksheet
    Set tgtHeader = tgt.Worksheets("Table1").Rows(1).EntireRow.Find(srcHeader.Value)
    
    ' copy the range to the required cell
    ' if not found then notice the user
    If tgtHeader Is Nothing Then
        MsgBox "Header not found in target workbook."
    Else
        rng.Copy tgt.Worksheets("Table1").Cells(2, tgtHeader.Column)
    End If
    
    ' save and close the target workbook
    tgt.Save
    tgt.Close
    
    ' delete objects that are no longer needed
    Set rng = Nothing
    Set srcHeader = Nothing
    Set tgtHeader = Nothing
    Set tgt = Nothing
End Sub