Databases
StackOverflow2013
Postsdbo
POResources and Efficiency
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POResources and Efficiency
    primarykey
    data
    text
    <p>So at Im trying to make a CMS system that utilizies the yahoo messenger SDK. THe idea is to have a self help robot be able to guide clients through certain problems. The conversation is run by two methods. One a script exists to respond back with a generic response. In each message recieved by the client the program will look for certan keywords and questions that will trigger a response out of an XML file. If it dosent find one it continues with the script. The program works but at a cost. Its a huge resource hog. In the program I have a class that handles all of the yahoo messenger functions like login, logout, recieve and send messages. I also have a class that I call conversations. This keeps rack of where the message came form, who it was going to and what position it was in within the scripted conversation. In my main program i initilize X amount of the client class based on how many different sites help accouts I am using. Each time it recieves a message it either creates a new conversation class because it dosent exist or it checks for the existing conversation and finds the sripted position. It obviously does all of the checks for keywords on the incoming message as well. This is my code for the shared event handler for recieving messages. My question is, is there anywayto make this more efficient.</p> <pre><code> Private Sub yahooclients_OnRec(ByVal sender As Object, ByVal buddy As String, ByVal message As String) TotalRec = TotalRec + 1 Try Dim c As YahooClient = CType(sender, YahooClient) 'Yahoo Client To Send Message From showLog("From:" &amp; buddy &amp; " To:" &amp; c.Account &amp; " Message:" &amp; message) Dim msgSplit As String() Dim retmsg As String Dim smsg As String() Dim n1 As XmlNode Dim sran As New Random 'Random SPlit Message Dim domran As New Random 'Random Domain ID Dim Found1 As Boolean = False Dim FoundIt As Integer = 0 Dim i As Integer = 0 'Keyword Counter 'Check Message For KeyWords By Splitting Each phrase by spaces msgSplit = Split(message, " ") For Each word In msgSplit For Each value In KeywordInd If value = word Then n1 = m_nodelist.Item(i) retmsg = n1.InnerText GoTo ScrubMessage End If i = i + 1 Next i = 0 Next 'Check For Conversations If convos.Count = 0 Then convos.Add(New Conversation(c.Account, buddy, 0)) retmsg = Script(0) GoTo ScrubMessage Else For A As Integer = 0 To (convos.Count - 1) If InStr(convos(A).TUser, c.Account) &gt; 0 And InStr(convos(A).FUser, buddy) &gt; 0 Then Found1 = True Exit For End If FoundIt = FoundIt + 1 Next If Found1 = True Then convos(FoundIt).SPosition = convos(FoundIt).SPosition + 1 'Send Next Position In Script If convos(FoundIt).SPosition &gt; (Script.Length - 1) Then If convos(FoundIt).SPosition = Script.Length Then TotalScript = TotalScript + 1 ToolStripStatusLabel10.Text = TotalScript End If Exit Sub End If retmsg = Script(convos(FoundIt).SPosition) GoTo ScrubMessage Else convos.Add(New Conversation(c.Account, buddy, 0)) retmsg = Script(0) GoTo ScrubMessage End If End If </code></pre> <p>ScrubMessage: 'Strip out | smsg = Split(retmsg, "|")</p> <pre><code> 'Pull A Random Response If smsg.Length &gt; 1 Then retmsg = smsg(sran.Next(0, (smsg.Length) - 1)) Else retmsg = smsg(0) End If 'Check For Domain Indicator If InStr(retmsg, "%") &gt; 0 Then TotalLink = TotalLink + 1 End If retmsg = Replace(retmsg, "%s", Domains(domran.Next(0, (Domains.Length - 1)))) If CheckBox2.Checked = True Then 'send Message With Font and Color retmsg = "&lt;font face=" &amp; """" &amp; fname &amp; """" &amp; "&gt;" &amp; "[#FF80C0m" &amp; retmsg &amp; "&lt;/font&gt;" End If showLog(("Sending Message: " &amp; retmsg &amp; " To: " &amp; buddy &amp; " From: " &amp; c.Account)) c.SendMessage(buddy, retmsg) TotalSent = TotalSent + 1 ToolStripStatusLabel4.Text = TotalSent 'Updates Sent Counter ToolStripStatusLabel6.Text = TotalRec 'Updates Rec Counter ToolStripStatusLabel8.Text = TotalLink 'Updates Links counter Catch ex As Exception showLog(ex.ToString) End Try End Sub </code></pre> <p>The program becomes really no resonsive with alot of accounts are asking questions etc. </p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. This table or related slice is empty.
    1. USJeff Yeager
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POResources and Efficiency
      1. This table or related slice is empty.
      1. VTUpMod
    1. This table or related slice is empty.
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload