hello,
im new here. i have searched this forum while im searching for a
solution in my big problem. actually im writing a program called Library
System that can have many clients can connect to the server. i write a
multi-connection application using winsock 6.0 that is in array. my big
problem is when the server is sending many data in the client, it is not
received all by the client which makes my program more inaccurate data
displaying. please take a look in my server-side code. and please tell
me what to do..

SERVER-SIDE:
Object: 1 Winsock 6.0 (Control Array)

Private Sub sckServer_ConnectionRequest(Index As Integer, ByVal
requestID As Long)
ConnectedCount = ConnectedCount + 1
Load sckServer(ConnectedCount)
sckServer(ConnectedCount).LocalPort = 0
sckServer(ConnectedCount).Accept requestID
End Sub

Ganhar dinheiro rápido e honesto

meu blog http://jet72.zip.net/

: QUER GANHAR UM BOM DINHEIRO? FAÇA COMO NÓS !
: COMO TRANSFORMAR 12 REAIS EM NO MINIMO DOZE MIL REAIS !!
: EU TAMBEM NÃO ACREDITAVA!! VOCÊ É CAPAZ, APENAS FAÇA FUNCIONAR.!

Encontrei esta mensagem em um fórum no UOL e decidi tentar. Pouco curioso
por natureza, continuei lendo. Logo abaixo, o texto apresenta uma lista com
6 nomes com endereços.

O texto propõe enviar pelo correio, R$ 2,00 para cada um dos 6 nomes com
endereços declarados (investimento de R$ 12,00 mais os selos para postagem).
Depois de feito isto, o texto propõe colocar meu próprio nome na posição #6
da lista, eliminando o nome da posição #1, e enviar este artigo para pelo
menos 200 fóruns ou newsgroups (Existem dezenas de milhares).

Nada mais, só isto é suficiente para você ganhar muito dinheiro. Assim
depois de refletir sobre isto, e falando primeiro com algumas pessoas,
cheguei à conclusão: "o que eu tenho a perder além de 6 selos e R$ 12,00 ?"
Resolvi então tentar esta jogada.

Hello All COM Developers!

I would like to know whether any of you have had experience debugging
side-by-side applications that are written in VB6?

In other words, let's say that different versions of the same product are
installed on one PC side-by-side. Both versions of the product use their own
COM types and now you would like to debug one version. Since the activation
information now lies in the manifest files for each version (instead of the
Windows registry), what is the best scenario to open the desired version in
VB6 and start debugging?

I see two scenarios of debugging here:

1. Register the COM types in the Windows registry for the application that
you want to debug and then open the application's project in VB6.

2. Add additional code to the application project to use the Activation
Context API and load the manifests for the COM types that the application
depends on.

I see scenario #2 as being more elegant but harder to implement in code.
This will keep the Windows registry clean (without COM activation entries)
allowing you to easily develop and test on the same PC.

pioneer hdmi 1.3 hdmi analog gutes hdmi kabel dvi monitor kabel hdmi analog

+
+
+
+++ BILLIGE HDMI KABEL KAUFEN +++ BILLIGE DVI KABEL KAUFEN +++
+
+
http://HDMI-KABEL.BUYONLINE24.INFO
http://HDMI-KABEL.BUYONLINE24.INFO
http://HDMI-KABEL.BUYONLINE24.INFO
http://HDMI-KABEL.BUYONLINE24.INFO
http://HDMI-KABEL.BUYONLINE24.INFO
http://HDMI-KABEL.BUYONLINE24.INFO
http://HDMI-KABEL.BUYONLINE24.INFO
http://HDMI-KABEL.BUYONLINE24.INFO
+
+
+

I'am a beginner in Visual Basic 6.0. Now I try to write a ActiveX control
that is in charge of communication through COM1. So I decided to adopt
MSComm control.
I draged a button onto the usercontrol.Then I wrote some statements in
its double-click event handler,like this:

Private Sub Command1_Click()
Dim MyComm As MSComm
MyComm.CommPort = 1
MyComm.Settings = "9600,N,8,1"
MyComm.PortOpen = True
End Sub

Then I started to run it in a web page by printing F5. When I double-clicked
the button, a message box jumped out on which it says as following:

Run-time error '91':
Object variable or With block variable not set

Please tell me why this happened? Where did I wrote incorrectly? Thank all
of you!

Adrian
Chen

hip hop topliste topliste script boys topliste hip hop topliste dance toplist

+
+
+
http://jhku.net/TOPLISTEN-GRATIS-KOSTENLOS/
http://jhku.net/TOPLISTEN-GRATIS-KOSTENLOS/
http://jhku.net/TOPLISTEN-GRATIS-KOSTENLOS/
http://jhku.net/TOPLISTEN-GRATIS-KOSTENLOS/
http://jhku.net/TOPLISTEN-GRATIS-KOSTENLOS/
http://jhku.net/TOPLISTEN-GRATIS-KOSTENLOS/
+
+
+

http://ibm-news.for-um.de/showthread.php?t=11794

Hi there,
why would I receive the above error when I use CreateObject?

The following code works:

Dim obj as MyComObj

Set obj = New MyComObj

but if I use the following code it errors:

Dim obj

Set obj = CreateObject("MyComObj")

I'm looking for some suggestions here as a section of code is misbehaving
at only one site (2 machines) and works elsewhere. The code is part of a
multi-threaded ActiveX EXE. The exact same EXE is installed at several
sites.

At this one site, a subscript-out-of-range error occurs. Because of the
extensive logging I know that it occurs on entry to the following
initialisation loop and that it never gets through one iteration of it
(because no activity is logged on other thread IDs)

ReDim tThreads(0 To iThreadCount - 1)
For iThread = 0 To UBound(tThreads)
With tThreads(iThread)
Set .oThread = CreateObject(sThreadProgID)
.lThreadID = .oThread.Initialise(sWorkDir)
End With
Next iThread

I know that iThreadCount is 5 because the logging explicitly records it just
before entry to the loop

I'm guessing that either the ReDim has not created any entries (causing
UBound to fail), or that the internal With-block initialisation is failing

Hi all,

since years I have a module in my app which
uses mscomm32 to send and receive data via RS232.

Works ok so far.

Now I have a device which uses XON/XOFF.
Should be no problem, but it is.
The receiver gives errors after some time.

There are some other programs around which can
communicate ok with the mentioned device.
So it's clear my transfer is not ok.

So I used a port monitor to see what's going on.

I can see mscomm makes a lot of traffic on the
port. My feeling is XON/XOFF is not functioning.
The other apps which send with success are
calm on the port.

I already tried a replacement for mscomm and
there is no difference to mscomm.

WSC4VB is working ok, but it's a lot of work
to replace mscomm with it.

Hello Everyone,

I'm having a problem using excel vba to call the following dll code
which was created as a "Class Library" using Visual Basic 2008 Express
Edition (note: "Class Library" was the only project choice that I saw
that created a dll).
_________________________________________________________
Public Class Class1
Public Sub a1_home_cell(ByVal jun As Excel.Workbook)

MsgBox("You're In!")
' returns each sheet to the home position

Dim sh As Excel.Worksheet
'Dim jun As Excel.Workbook

For Each sh In jun.sh
'ActiveWorkbook.Worksheets()
sh.Activate()
sh.Range("A1").Select()
Next sh